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Abstract  of  Dissertation  Presented  to  the  Graduate  School 
of  the  University  of  Florida  in  Partial  Fulfillment  of  the 
Requirements  for  the  degree  of  Doctor  of  Philosophy 

NUMERICAL  MODELLING  OF  A LATERALLY  LOADED  PILE  GROUP 

BY  FINITE  ELEMENT  METHOD 

By 

Shanmugaraj  Subramanian 
December  1992 

Chairman:  Michael  C.  McVay 

Major  Department;  Civil  Engineering 

The  main  purpose  of  this  research  is  to  create  a 
nonlinear  finite  element  computer  program  (LPG)  specifically 
for  analyzing  a laterally  loaded  pile  group.  In  the 
program,  piles  are  modeled  by  3-D  finite  beam  elements. 
Pile-soil  and  pile-soil-pile  interaction  among  the  piles  and 
soil  within  the  group  is  modeled  by  soil  springs.  The 
interaction  is  assumed  to  be  effected  by  two  types  of 
springs,  near-field  and  far-field  soil  springs.  The  near 
field  soil  springs  are  nonlinear  and  their  stiffnesses  are 
obtained  from  p-y  curves.  The  far-field  soil  springs  are 
linear  and  their  stiffnesses  are  obtained  from  Mindlin's 
flexibility  equations.  Axial  loads  are  transferred  to  the 
soil  through  the  axial  linear  soil  springs  attached  to  the 
tips  of  the  piles.  Input  parameters  for  all  the  soil 
springs  can  be  obtained  from  insitu  and/or  laboratory  tests. 
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The  program  gives  both  linear  and  nonlinear  solutions 
comparable  to  the  solutions  of  a commercially  available 
software  (COM624)  for  a laterally  loaded  single  pile.  It 
also  gives  Poulos's  Integral  Solution  for  a laterally  loaded 
linear  elastic  pile  group  system. 

Finally,  the  program  was  used  to  predict  both  a single 
pile  and  pile  group  response  at  a Houston,  Texas,  site  for 
static  and  cyclic  loadings.  Good  results  were  obtained  for 
both  cases  using  the  same  soil  parameters  obtained  from  the 
site. 
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CHAPTER  1 
INTRODUCTION 

1 . 1 General 

Pile  groups  are  subjected  to  lateral  loads  under  a 
variety  of  situations,  such  as  seismic  loads,  wind  loads, 
ship  impacts,  etc.  Three  options  are  available  to  design 
such  groups: 

1.  A full  scale  load  test 

2 . A centrifugal  model  test 

3 . A rational  theory 

Generally  the  first  option  is  economically  not  viable 
and  the  second  has  the  disadvantage  of  not  exactly  modelling 
the  insitu  soil  behavior.  So  the  third  option  is  often 
resorted  to.  Previously,  theories  modelling  soil  as  an 
elastic  half  space  (17,18)  were  used  for  the  design.  But 
the  current  trend  uses  theories  that  account  for  nonlinear 
behavior  of  soils. 


1.2  Objective 

The  primary  objective  of  this  research  is  to  create  a 
finite  element  computer  program  that  would  calculate  a load 
deflection  curve  for  a laterally  loaded  pile  group.  The 
program  would  model  each  pile  in  the  group  with  linear 
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elastic  beam  elements,  pile-soil  interaction  (lateral  soil 
resistance)  with  nonlinear  elastic  springs  and  pile-soil- 
pile  interaction  with  linear  springs.  The  choice  of  spring 
models  for  the  soil,  to  predict  a single  pile  or  group 
response,  is  selected  such  that  input  parameters  may  be 
obtained  from  insitu  tests  such  as  SPT  and/or  CPT  and 
laboratory  tests  such  as  triaxial  compression  test. 

A comparison  with  a closed  form  solution  using  an 
entirely  linear  system  is  used  to  assess  the  accuracy  of  the 
program.  Finally,  field  load  test  data  obtained  for  the 
pile  group  study  at  Houston,  Texas  (3)  are  used  to  evaluate 
the  program  and  its  representative  soil  and/or  pile  models. 
In  this  latter  study,  the  soil  material  parameters  used  in 
the  single  pile  predictions  are  also  used  in  the  group 
analysis. 


1 . 3 Scope 

The  work  carried  out  for  this  dissertation  could  be 
divided  into  four  parts: 

1.  Incorporate  nonlinear  p-y  curves/ springs  to  depict  pile- 
soil  interaction  and  Mindlin  linear  springs  to  depict  pile- 
soil-pile  interaction; 

2.  Add  linear  finite  element  of  the  pile  segments  and  solve 
iteratively  by  secant  method; 

3.  Verify  the  algorithm  in  the  case  of  a linear  system  with 
available  integral  solutions  and  program  COM624  (23) ; 
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4.  Model  one  of  the  few  field  studies  with  single  and  pile 
group  response. 


CHAPTER  2 
LITERATURE  REVIEW 


In  general  there  are  four  analytical  models  for  pile 
group  behavior: 

1.  Finite  element  model 

2 . Continuum  model 

3 . Unit  load-transfer  model 

4 . Hybrid  model 

A three-dimensional  finite  element  model  could 
represent  the  nonhomogeneous  and  nonlinear  nature  of  soils 
very  well.  But  it  has  the  disadvantage  of  not  exactly 
knowing  constitutive  models,  correct  soil  parameters,  and 
the  initial  states  of  stress  surrounding  the  piles.  In 
addition,  it  is  very  expensive  and  time-consuming  to  run. 

For  example.  Brown  (4)  took  15  to  20  hours  of  CPU  time  on  a 
Cray  X/MP24  super-computer  to  analyze  two  rows  of  piles. 

Some  other  examples  for  laterally  loaded  pile  group  research 
using  FEM  include  those  of  Kimura  et  al.  (9) , Selby  and  Arta 
(24)  and  Trochanis  et  al.  (27) . 

A continuum  model  assumes  the  soil  as  a linear  elastic 
half  space  and  uses  Mindlin's  three-dimensional  elasticity 
equations  to  model  pile-soil  and  pile-soil-pile  interaction. 
Examples  of  this  model  are  Poulos  (17,18)  and  Sharnouby  and 
Novak  (25) . To  reduce  the  computational  effort,  a modified 
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continuum  model  was  proposed.  The  modified  model  (or 
coupled  Winkler  model)  is  similar  to  the  continuum  model 
except  that  the  pile-soil-pile  interactions  are  assumed  to 
occur  only  in  horizontal  planes.  Examples  include  those  of 
Nogami  and  Chen  (15)  and  Randolph  (19) . 

A unit  load-transfer  model  is  described  by  Bogard  and 
Matlock  (2) . In  this  model,  nonlinear  load-transfer /p-y 
curves  for  piles  in  a group  are  constructed  empirically  by 
combining  a p-y  curve  for  a single  pile  and  a p-y  curve  for 
an  imaginary  pile  with  a large-diameter  representing  the 
piles  within  the  group  and  the  encompassed  soil  acting 
together . 

A hybrid  model  was  initially  proposed  by  Focht  and  Koch 
(5) . The  Focht-Koch  hybrid  model  is  a combination  of 
continuum  and  unit  load-transfer  models.  It  uses  linear 
elastic  interaction  factors  obtained  from  the  continuum 
model  proposed  by  Poulos  (17,18).  It  indirectly  considers 
the  nonlinear  pile-soil  interaction,  technically  called  p-y 
curve,  in  the  equations  of  elasticity  used  in  the  continuum 
model,  by  introducing  a relative  stiffness  factor.  A 
similar  but  more  refined  procedure  was  proposed  by  O'Neill 
et  al.  (16).  In  O'Neill's  model,  instead  of  using  the 
linear  elastic  interaction  factors  derived  from  the 
continuum  model,  the  piles  were  discretized  and  FEM  was  used 
to  calculate  displacements.  Displacements  at  the  location 
of  each  p-y  curve  on  each  pile  are  computed  from  the  load  of 
all  other  pile  elements  using  Mindlin's  point  load  equations 
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(13)  and  each  p-y  curve  was  individually  modified  for  the 
effect  of  other  piles  i.e.  to  account  for  pile-soil-pile 
interaction.  The  response  of  each  pile  is  recomputed  using 
the  modified  p-y  curves  and  the  process  repeated.  Like 
O'Neill's  model,  the  model  suggested  recently  by  Brown  (3) 
also  corrects  the  p-y  curves  for  isolated  single  piles  to 
account  for  group  effects.  While  O'Neill  increases  the  pile 
deflection  for  a particular  soil  resistance  using  factors 
based  on  Mindlin's  flexibility  equations.  Brown  decreases 
the  soil  resistance  for  a particular  pile  deflection,  using 
factors  based  on  experimental  data,  for  each  p-y  curve  at 
different  depths  to  account  for  pile-soil-pile  interaction. 
Brown's  factors,  called  p-multipliers,  depend  on  row 
position  of  the  pile  and  the  soil  type.  Both  O'Neill's  and 
Brown's  models  indirectly  consider  the  pile-soil-pile 
interaction  by  'softening'  the  pile-soil  interactions/p-y 
curves.  In  this  dissertation,  a new  method  which  directly 
and  rationally  models  both  pile-soil  and  pile-soil-pile 
interactions  is  proposed.  In  this  new  method,  FEM  is  used. 
First  piles  are  discretized.  Then  pile-soil  interaction  is 
modeled  by  nonlinear  springs  representing  p-y  curves  and 
pile-soil-pile  is  modeled  by  linear  springs  representing 
Mindlin's  flexibilities.  Stiffness  of  the  soil  mass  is 
calculated  by  inverting  the  total  flexibility  obtained  after 
adding  the  flexibilities  of  the  pile-soil  nonlinear  springs 
and  the  pile-soil-pile  linear  springs.  Displacement  of  the 
pile  group  system  is  solved  for  a lateral  loading  after 
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assembling  the  stiffnesses  of  the  pile  elements  and  the  soil 
mass. 
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CHAPTER  3 
PROGRAM  LPG 

3 . 1 Pile  Model 

The  pile  group  program  presented  in  this  dissertation, 
LPG  - Laterally  loaded  Pile  Group,  uses  a finite  element 
idealization  for  the  pile.  This  approach  breaks  up  each 
pile  into  individual  3-D  beam  elements  as  shown  in  Figure 
3 . 1 One  of  the  elements  is  depicted  in  Figure  3.2. 

In  general  there  are  ten  displacement  parameters 
(dZj,dXj,dyj,  (?Xj,  0yj,dZ|^,dx,^,dy,^,  0x^.,  ^y,^)  for  each  element.  The 
parameters  dZj  ,dXj  ,dyj , 0Xj , 0yj  correspond  to  displacements  at 
one  end  of  the  element  and  dZ|^,dX|^,dy|^,  ^x,^,  0y,^  correspond  to 
the  other  end.  Figure  3.2  shows  a 3-D  beam  element  i that 
is  fully  restrained  at  both  ends,  j and  k.  Orthogonal 
element  oriented  axes  also  appear  in  the  figure,  with  the 
origin  located  at  point  j . The  z^  axis  coincides  with  the 
centroidal  axis  of  the  member  and  is  positive  in  the  sense 
from  j to  k.  The  x^-z^  and  yg-z^  planes  are  principal  planes 
of  bending.  Let  L denote  the  length  of  the  element,  A the 
area  of  cross  section,  Ix  and  ly  the  principal  moment  of 
inertia  of  the  cross  section  of  the  element  with  respect  to 
the  Xg  and  y^  axes  and  E the  Young's  modulus  of  the  element. 
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Figure  3.1.  Finite  Element  Idealization  of  a Pile. 
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Figure  3.2.  3-D  Beam  Element. 
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Element  stiffnesses  for  the  restrained  element  shown  in 
Figure  3 . 2 consist  of  actions  exerted  on  the  element  by  the 
restraints  when  unit  displacements  (translations  and 
rotations)  are  imposed  at  each  end  of  the  member.  Values  of 
these  restraint  actions  can  be  obtained  from  any  standard 
text  (for  example,  Ref.  28) . The  unit  displacements  are 
considered  to  be  induced  one  at  a time  while  all  other  end 
displacements  are  retained  at  zero;  also,  they  are  assumed 
to  be  positive  in  the  Xg,y^  and  z^  directions.  Thus,  the 
positive  senses  of  the  three  translations  and  the  two 
rotations  at  each  end  of  the  element  are  indicated  by  arrows 
in  Figure  3.2.  In  the  figure  the  single-headed  arrows 
denote  translations  and  double-headed  arrows  represent 
rotations.  The  translations  and  rotations  are  also  called 
degrees  of  freedom.  At  joint  j the  translations  are 
numbered  1,2  and  3 and  the  rotations  are  numbered  4 and  5. 
Similarly  at  the  k end  of  the  element  6,  7 and  8 are 
translations  and  9 and  10  are  rotations.  In  all  cases  the 
displacements  are  taken  in  the  order  z^,  x^  and  y^ 
respectively . 

The  element  stiffnesses  for  the  ten  possible  types  of 
end  displacements  (shown  in  Figure  3.2)  are  summarized 
pictorially  in  Figure  3.3.  In  each  case  the  various 
restraint  actions  or  element  stiffnesses  are  shown  as 
vectors.  An  arrow  with  a single  head  represents  a force 
vector,  and  an  arrow  with  a double  head  represents  a moment 
vector.  All  vectors  are  drawn  in  the  positive  senses,  but 
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Figure  3.3.  Element  Stiffnesses. 

(Modified  after  Ref.  28) 

(1)  Unit  ze  translation  at  j; 

(2)  Unit  xe  translation  at  j; 

(3)  Unit  ye  translation  at  j; 
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Figure  3.3. — Continued. 

(4)  Unit  xe  rotation  at  j; 

(5)  Unit  ye  rotation  at  j; 
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Figure  3.3. — Continued . 

(6)  Unit  Zg  translation  at  k; 

(7)  Unit  Xg  translation  at  k; 

(8)  Unit  Yg  translation  at  k; 
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Figure  3.3. — Continued . 

(9)  Unit  Xg  rotation  at  k; 

(10)  Unit  Yg  rotation  at  k. 
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in  cases  where  the  restraint  actions  are  actually  negative  a 
minus  sign  precedes  the  expression  for  the  stiffness 
coefficient. 

In  order  to  see  how  the  member  stiffnesses  are 
determined  consider  case  (1)  in  Figure  3.3.  The  restraint 
actions  shown  in  the  figure  arise  because  of  a unit 
translation  of  the  j end  of  the  member  in  the  positive 
direction.  All  other  displacements  are  zero.  This 
displacement  causes  a pure  compressive  force  EA/L  in  the 
member . 

At  the  j end  of  the  element  this  force  is  equilibrated 
by  a restraint  action  EA/L  in  the  positive  z^  direction  and 
at  the  k end  of  the  element  the  restraint  action  has  the 
same  value  but  is  in  the  negative  z^  direction.  All  other 
restraint  actions  are  zero  in  this  case. 

Case  (2)  in  Figure  3.3  involves  a unit  translation  of 
the  j end  of  the  member  in  the  positive  Xg  direction,  while 
all  other  displacements  are  zero.  This  displacement  causes 
both  moment  and  shear  in  the  element.  At  the  j end,  the 
restraint  actions  required  to  keep  the  element  in 
equilibrium  are  a lateral  force  of  12  Ely/IT  in  the  positive 
Xg  direction  and  a moment  6 Ely/L  in  the  positive  sense. 
At  the  k end  of  the  element  the  restraint  actions  are  the 
same  except  that  the  lateral  force  acts  in  the  negative  Xg 
direction. 

All  of  the  element  stiffnesses  shown  in  the  figure  are 
derived  by  determining  the  values  of  the  restraint  actions 
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required  to  hold  the  distorted  member  in  equilibrium.  For 
the  pile  element  used  in  the  program,  it  is  possible  for  the 
element  to  undergo  any  of  the  ten  displacements  shown  in 
Figure  3.3.  The  stiffness  matrix  for  such  a element, 
denoted  k •,  is  therefore  of  order  10  x 10,  and  each  column 
in  the  matrix  represents  the  actions  caused  by  one  of  the 
unit  displacements.  The  3-D  beam  element  stiffness  matrix 
is  shown  in  Table  3.1;  it  is  of  course  symmetrical. 

From  the  element  stiffness  matrix,  one  will  observe  that 
there  is  no  interaction  of  axial  forces  and  bending  moments, 
meaning  there  is  no  P-5  effect.  This  element  stiffness 
matrix  is  used  to  create  stiffness  for  each  pile  element  of 
a pile  group  in  the  subroutine  ELSTFP  in  the  computer 
program  LPG. 


3 . 2 Pile-Soil  Interaction 

The  lateral  pile-soil  interaction  is  modelled  by 
nonlinear  springs  at  each  node  in  the  pile  group.  At  the 
tips,  in  addition  to  nonlinear  springs  used  to  model  lateral 
pile-soil  interaction,  linear  springs  are  used  to  model 
axial  pile-soil  interaction.  Figure  3.4  depicts  a single 
pile  broken  into  four  elements  with  pile-soil  springs 
attached.  The  ten  pile-soil  nonlinear  springs  shown  in  the 
figure  contributes  to  lateral  resistance  in  X and  Y 
directions  while  the  vertical  pile-soil  linear  spring 
contributes  to  pile  tip  axial  resistance  in  Z direction. 


Table  3.1.  3-D  Beam  Element  Stiffness  Matrix 
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Figure  3 . 4 


Pile-Soil  Interaction  Model  (Side  and  Tip) 
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The  axes  X,  Y and  Z are  global  and  they  are  in  the  same 
directions  as  the  element  or  local  axes  x^,  and  z^. 

The  vertical  springs  in  Z direction  are  assumed  to  be 
linear  with  pile  tip  deflection  and  their  stiffnesses  are 
egual  to  pile  tip  soil  stiffnesses.  The  lateral  nonlinear 
springs,  technically  called  p-y  curves  in  the  literature 
where  p is  the  soil  resistance  and  y is  the  lateral 
deflection  of  the  pile,  depict  lateral  pile-soil 
interaction.  In  this  program,  O'Neill's  p-y  curves  (6,14) 
for  both  cohesionless  and  cohesive  soils  and  static  and 
cyclic  loading  are  used. 

3.2.1  P-Y  Curve  for  Cohesionless  Soils 

Based  on  several  lateral  load  tests  on  single  piles, 
O'Neill  (14)  proposed  the  following  relationship  between  the 
soil  resistance  p and  the  lateral  deflection  of  pile  y at 
any  depth  z in  soil  from  ground  surface. 

kz 

p = t;  A Py  tanh  [ ( ) Y ] • • • Eqn . 3.1 

A T/  Pu 

where  rj  = a factor  used  to  describe  pile  shape; 

= 1.0  for  circular  piles; 

A =0.9  for  cyclic  loading; 

= 3-0.8  z/D  > 0.9  for  static  loading; 

D = diameter  of  pile; 

Py  = ultimate  soil  resistance  per  unit  of  depth; 

k = modulus  of  lateral  soil  reaction  (Ib/ft^  or 
N/m^)  . 
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The  ultimate  soil  resistance  in  equation  3.1  is 
determined  from  the  lesser  value  given  by  equations  3.2  and 

3.3. 

Pu  “ 7 ^ (Kp-Kg)  + z K tan  0 tan  /3  ] ...  Eqn.  3.2 

Py  = 7 D 2 (K  ^+2  Kg  K ^ tan  0 + tan  0 - Kg)  . . . Eqn.  3.3 
where  z = depth  in  soil  from  ground  surface; 

7 = effective  unit  weight  of  soil; 

Kg  = Rankine  active  coefficient; 

= (1-sin  0)/(l+sin  0); 

K = Rankine  passive  coefficient; 

= i/K^; 

Kg  = at-rest  earth  pressure  coefficient; 

= i-sin  0; 

0 = angle  of  internal  friction; 

j8  = 45°  + 0/2  . 

The  p-y  relationship  in  equation  3 . 1 depends  on  the 
soil  parameters  k (Ib/in  or  N/m)  and  0 (deg) , which  may  be 
obtained  from  the  insitu  test  SPT.  Figure  3.5  gives  the 
correlation  of  SPT  to  friction  angle  <p  and  relative  density 
Dp,  and  Figure  3.6  gives  the  correlation  of  Dp  to  k. 

O'Neill's  p-y  relationship  in  equation  3.1  is  similar 
to  one  suggested  by  Reese,  Cox  and  Koop  (21) , which  is 
widely  used  in  the  industry.  This  similarity  is  shown  in 
Figure  3.7.  In  the  figure,  it  can  be  observed  that  the 
curves  differ  only  slightly.  While  the  Reese,  Cox  and 
Koop's  p-y  curve  is  made  of  four  segments,  O'Neill's  is 


SPT  PENETROMETER  BLOW  COUNT  N(0UOWS/FT) 
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Figure  3.5.  SPT  Blow  Count  Vs  Friction  Angle 

and  Relative  density. 

(Modified  after  Ref.  7) 
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Figure  3.6.  k Vs  Relative  density. 

(Modified  after  Ref.  12) 
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U 


Figure  3.7.  Comparison  of  Shapes  of  O'Neill's  and 

Reese , Cox  and  Koop ' s p-y  Curves . 
(After  Ref.  14) 
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made  of  only  one  segment  which  makes  it  easier  to  implement 

in  the  computer  program  LPG. 

Initial  slopes  of  p-y  curves  are  used  to  calculate 

tangent  pile-soil  flexibility,  the  first  step  in  the  secant 

solution  scheme  (Section  3.4)  adopted  in  this  dissertation 

to  solve  the  nonlinear  pile  group  system  equations.  Initial 

slope  of  a p-y  curve  both  for  static  and  cyclic  loading  for 

2 2 

a cohesionless  soil  is  equal  to  k*z  (lb/ in  or  N/m  ) 

(Appendix  A) . 

3.2.2  P-Y  Curve  for  Cohesive  Soils 


The  p-y  curves  suggested  previously  for  cohesive  soils 
fall  into  two  categories.  One  is  soft  clay  method  (11)  and 
the  other  is  stiff  clay  (22)  method.  There  is  also  one  more 
unified  clay  method  (26)  applicable  to  all  cohesive  soils. 
But  it  essentially  converts  to  either  a stiff-clay-like 
method  or  a soft-clay-like  method  based  on  the  soil 
parameters  chosen  by  the  user.  In  this  dissertation,  a new 
integrated  method  suggested  by  O'Neill  (6)  which  is 
applicable  to  the  response  of  all  cohesive  soils,  is  used. 

The  p-y  relationship  for  cohesive  soils  as  proposed  by 
O'Neill  (6)  can  be  arrived  at  by  the  following  steps: 

(1)  Assess  critical  length  of  pile,  Lc: 


El 


Lc  = 3 [ 


Es  D 


0.5 


] 


0.286 


. . . Eqn . 3.4 


where  El  is  the  flexural  stiffness  of  the  pile; 
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Es  is  an  operating  soil  modulus; 

D is  the  diameter  of  pile. 

Es  may  be  assumed  as  a secant  Young's  modulus  at  50%  of 
failure  deviatoric  stress  in  undrained  triaxial  compression 
test.  O'Neill  (6)  has  suggested  values  of  Es  based  on 
correlations  with  the  average  UU  triaxial  compression  shear 
strength  between  the  surface  and  depth  Lc  and  they  are 
tabulated  in  Table  3.2.  But  the  author  did  not  get  good 
results  using  these  correlations  for  predicting  the  load- 
deflection  response  of  field  load  test  in  Houston,  Texas 
(Section  4.4).  So  he  tried  the  correlation  suggested  by 
Banerjee  and  Davies  (1),  given  below; 

Es  = 100  Cu  ...  Eqn.  3.5 

where  Es  = secant  Young's  modulus  of  soil; 

Cu  = undrained  shear  strength. 

The  later  correlation  produced  good  results  and  is  used  in 
the  computer  program  LPG. 


Table  3.2.  O'Neill's  Correlation  of  Es  to  Cu. 


Undrained  Shear  Strength 

Cu  (psi) 

Secant  Young ' s Modulus 
Es  (psi) 

< 3.472 

50 

3.472  - 6.944 

50  - 150 

6.944  - 13.889 

150  - 450 

13.889  - 27.778 

450  - 1500 

27.778  - 55.556 

1500  - 5000 

> 55.556 

5000 

Since  Es  is  correlated  to  shear  strength,  it  will  vary 
with  depth,  if  shear  strength  varies  with  depth.  In  that 
case  Lc  has  to  be  assessed  iteratively  using  the  equation 
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3.4.  The  following  procedure  is  adopted  in  the  subroutine 
CRITL  in  the  program  LPG: 

(a)  assume  Lc  = 5 * D; 

(b)  find  average  Es  between  ground  surface  and  depth  Lc; 
The  soil  in  between  the  ground  surface  and  depth  Lc  may  have 
both  cohesive  and  cohesionless  soils.  Es  for  a cohesive 
soil  is  obtained  from  its  correlation  to  shear  strength  Cu 
suggested  in  equation  3.5.  For  a cohesionless  soil,  Es  at 
any  depth  z in  soil  below  the  ground  surface  is  obtained 
from  its  modulus  of  lateral  reaction  k (lb/ in  or  N/m^)  , as 
given  by  the  following  equation  (18) : 

Es 

» k ...  Eqn . 3.6 

z 

(c)  find  Lc,new  by  equation  3.4  using  the  average  Es 
calculated  in  step  (b) ; 

(d)  find  error  = abs{(Lc,new  -Lc) /Lc,new} ; 

(e)  assume  Lc  = Lc,new; 

(f)  repeat  process  (b)-(e)  until  error  < tolerance. 

(2)  Assess  reference  deflection,  yc: 

y^  = A'  £50  (EI/Es)®’''^®  ...  Eqn.  3.7 

where  Es  = value  of  soil  modulus  corresponding  to  shear 
strength  at  depth  of  interest  using  the  correlation 
suggested  in  equation  3.5; 

A ' = 0.8,  a constant ; 

ejQ  = Major  principal  strain  at  50%  maximum  deviator 
stress  in  a UU  triaxial  compression  test. 
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(3)  Formulate  ultimate  soil  resistance,  p^: 

Py  = F Np  Cu  D ...  Eqn . 3.8 

where  F = a reduction  factor  from  Table  3 . 3 based  on  soil 
ductility  and  form  of  loading  (static  or  cyclic) ; 

Cu  = the  undrained  shear  strength; 

Np  = 3 + 6 (z/Zg^)  <9;  ...  Eqn.  3.9 

Zp^  = Lc/4  and  ...  Eqn.  3.10 

z = depth  from  ground  surface  in  soil. 


Table  3.3.  Soil  Degradability  Factor,  F. 


Factor 

UU  triaxial  compression  failure  strain,  emn 

< 0.02 

0.02  - 0.06 

> 0.06 

Fstatic 

0.50 

0.75 

1.00 

Fcyclic 

0.33 

0.67 

1.00 

(4)  Construct  the  p-y  curves: 

Figure  3 . 8 describes  graphically  the  construction  of 
static  and  cyclic  p-y  curves  using  the  O'Neill's  Method  (6). 

Initial  slopes  of  p-y  curves,  as  mentioned  elsewhere, 
are  used  in  the  secant  solution  scheme  (Section  3.4)  adopted 
in  this  dissertation,  to  start  the  solution  procedure.  The 
initial  slope  of  a p-y  curve  for  a cohesive  soil,  both  for 
static  and  cyclic  loading,  is  infinity  (Appendix  A) . So  a 
finite  value  has  to  be  implemented  in  the  program  LPG  for 
the  slope.  This  finite  value  can  be  any  large  number  and 
final  result  obtained  for  nonlinear  pile  group  system 
equations,  after  convergence  using  the  secant  solution 
scheme  (Section  3.4),  does  not  depend  on  this  initial  finite 


RATIO  OF  SOIL  RESISTANCE.  P/P 
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Figure  3.8.  Construction  of  p-y  Curve  by 

O'Neill's  Integrated  Clay  method 
(After  Ref.  6) . 

(a)  Static  Loading  case; 
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Figure  3.8. — Continued . 
(b)  Cyclic  Loading  case. 
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value  for  the  slope.  A value  equal  to  the  soil  modulus  Es 
used  in  the  p-y  curve  is  also  used  for  the  initial  slope  of 
the  p-y  curve  for  cohesive  soil  in  the  program  LPG. 

3 . 3 Pile-Soil-Pile  Interaction 

The  pile  group  program  presented  in  this  dissertation 
considers  interaction  between  piles  directly.  In 
determining  that  interaction,  it  is  necessary  to  convert  the 
distributed  lateral  load  along  the  pile  shaft  and  pile  base 
into  point  loads  acting  at  the  pile  nodes.  The  influence 
between  piles  is  then  characterized  through  flexibility 
coefficients  f,.^  f,-y  f,-^  jy  and  f,.y  jy,  based  on  Mindlin's 
solution  (13)  for  lateral  point  loads  applied  in  X and  Y 
directions  in  a homogeneous,  isotropic  elastic  half -space. 
The  flexibility  term  f ,x  jx  represents  displacement  at  node  i 
in  X direction  from  unit  force  applied  to  node  j in  X 
direction.  Similarly  the  term  f ,-y  jx  represents  the 
displacement  at  node  i in  Y direction  from  the  unit  force 
applied  to  node  j in  X direction.  The  terms  f ,x jy  ^iy.jy 

could  also  be  defined  similarly.  It  should  be  noted  that 
the  coefficients  f,^  f,.y  f,-^  jy  and  f,.y  jy  are  zero  if  i and 
j are  on  the  same  pile  (they  are  modelled  through  pile-soil 
interaction) . Figures  3 . 9 and  3 . 10  are  provided  to  explain 
this  further.  Figure  3.9  is  a two-pile  group  with  five 
nodes  and  four  elements  per  pile.  Node  1 is  not  affected  by 
node  2 (modelled  through  pile-soil  interaction)  but  it  is 
influenced  by  forces  generated  both  in  X and  Y direction  at 
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Figure  3.9. 


Element  Discretization  for  a Two-Pile 
Group . 
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Figure  3.10.  Pile-Soil-Pile  Linear  Spring 

Characterization. 
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nodes  6 through  10,  due  to  pile-soil-pile  interaction.  This 
influence  on  node  1 may  be  represented  (Figure  3.10)  by 
linear  springs  connecting  nodes  6 through  10.  It  should  be 
noted  that  total  20  linear  springs,  4 springs:  f,x  jx/  ^ly.jx' 
f,„  and  f.-„  each,  are  connecting  nodes  1,6;  1,7;  1,8;  1,9 

'/fjy 

and  1,10.  In  the  same  manner  nodes  2 through  10  would  be 
affected.  The  entire  interaction  can  be  represented  as  a 
matrix.  Each  flexibility  term  in  the  matrix  is  determined 
from  Mindlin's  equations  (13): 


IX,  JX 


16  77  G (1-fJL) 


(3-4M)  1 

[ + + 

R,  R, 


R- 


+ 


(3-4/i)  x‘ 


R. 


2 c z 


R. 


(1  - 


3 X 


R. 


4 (1-M)  (1-2/x) 

+ ( 1 - 

(R2+Z+C) 


X 


R2  (R2+Z+C) 


) ] 


. . . Eqn.  3 . 11 


X y 


ly.jx 


16  77  G (l-/i  ) 


R, 


(3-4M) 


R. 


6 cz 


R. 


4 (1-M)  (1-2M) 

R2  (R2+Z+C)^ 


] 


. . . Eqn.  3 . 12 


f.  . = f.  . 

IX, jy  iy,jx 


. . . Eqn.  3 . 13 


f.. 


iy,jy 


(3-4/x)  1 y 

[ + + — ; 


R. 


R. 


R, 


16  77  G (1-m) 
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+ 


(3-4/i)  y‘ 


R. 


2 c z 


R. 


(1  - 


3 y 


R. 


) 


4 (1-M)  (1-2/i) 

+ (1  - 

(Rj+z+c) 


Rg  (Rj+z+c) 


) ] 


. . . Eqn.  3 . 14 


where  z = depth  coordinate  of  node  i; 


ix,iy  = node  i where  the  displacement  is  evaluated  in  X 

and  Y directions  respectively; 
jx,jy  = node  j at  which  load  is  applied  in  X and  Y 

directions  respectively; 
c = depth  coordinate  of  node  j ; 

H = Poisson's  ratio  of  media  between  piles; 

G = Shear  modulus  of  media  between  piles.  This  is 
a constant  value  that  must  be  input  into  the 
program.  A spatial  average  of  shear  moduli 
along  the  sides  of  the  pile  may  be  used  for 


R,  = 


^2  = 


r = 


this  value; 

[r  +(z-c)  ] ; 

[r  +(z+c)  ] ; 

r 2,  2..0.5 

[X  +y  ] ; 


X and  y = spatial  distances  on  the  ground  surface  between 

the  two  piles  of  interest. 

In  the  example  two-pile  group  shown  in  Figure  3.9,  the 
matrix  would  be  20  x 20,  where  20  is  the  total  number  of 


degrees  of  freedom.  The  flexibility  coefficients  f,x  jx/ 
fiw  iv»  f,v  iv  cind  f,„  would  be  evaluated  for  each  position  in 
the  matrix.  The  resulting  flexibility  matrix  is  then  used 
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in  the  compilation  of  the  total  soil  stiffness.  The  later 
is  accomplished  by  adding  the  pile— soil  interaction, 
discussed  in  the  previous  section,  to  pile-soil-pile 
flexibility  to  create  the  total  flexibility.  This  resulting 
soil  flexibility  matrix  is  inverted  to  give  the  complete 
soil  stiffness  matrix.  The  soil  stiffness  matrix  is  then 
assembled  together  with  the  individual  pile  stiffness 
matrices  to  yield  the  total  group  stiffness  matrix.  The 

assembled  force-displacement  relationship  for  the  pile  group 
system  is 

{fex}  = [K]  * {W}  ...  Eqn.  3.15 

where  {f^^}  = external  force  vector; 

[K]  = total  stiffness  for  the  pile  group; 

{w}  = displacement  vector  for  the  pile  group. 

Depending  on  the  subroutine  used  in  solving  the 
equation  3.15  and  inverting  the  soil  flexibility  matrix,  two 
versions  of  the  program  LPG  were  created.  In  one  version, 
called  PROFILE  version,  the  total  global  stiffness  matrix 
[K]  is  stored  in  a profile  form  (Section  3.5)  and  a profile 
equation  solver  SUBSOL  is  used  to  solve  the  equation.  In 
the  other  version,  called  LU  version,  [K]  is  stored  in  its 
full  matrix  form  and  LU  (Section  3.5)  decomposition  and 
back-substitution  routines  LUDCMP  and  LUBKSB  are  used  to 
solve  the  equation.  The  procedure  that  the  program  follows 
is  better  explained  through  the  detailed  flow  chart  given  in 
Figure  3.11.  Thirty-four  steps  are  depicted  in  the  flow 
chart  and  are  described  in  list  given  below. 
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Figure  3.11.  Flow  Chart  of  the  Program  LPG. 
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LIST  OF  DESCRIPTIONS  OF  THE  STEPS  IN  FIGURE  3.11. 


STEP# 


DESCRIPTION 


(1)  Create  a big  array  for  dynamic  memory  storage 

allocation  of  all  other  arrays. 

(2)  Initialize  critical  length  CL  = 0.  This 

initialization  is  required  for  calculating  p-y 
spring  forces  in  step  #31-A-(iv). 

(3)  Open  one  input  file  in  unit  NUI  and  three  output 

files  in  units  NUOl,  NU02  and  NU03 . Output 
files  in  units  NU02  and  NU03  are  temporary  and 
they  will  be  deleted  after  the  execution  of  the 
program . 

(4)  Read  data  from  input  file  in  unit  NUI. 

(5)  Compute  coordinates  of  each  node  in  pile  group. 

(6)  For  PROFILE  version  of  the  program,  create  NA 

array  for  Mindlin's  pile-soil-pile  flexibility 
matrix.  For  LU  version,  skip  this  step. 

(7)  Compute  pile-soil-pile  flexibility  according  to 

Mindlin's  solution. 

(8)  Write  pile-soil-pile  flexibility  matrix  to  the 

temporary  file  in  unit  NU03 . 

(9)  Create  location  matrix  for  soil  stiffness  matrix. 

(10)  For  PROFILE  version  of  the  program,  create  NA 

array  for  global  stiffness  matrix  using  the 
location  matrix  created  in  the  previous  step.  For 


LU  version,  skip  this  step. 
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STEP# 

DESCRIPTION 

(11) 

Zero  global  stiffness  matrix. 

(12) 

Create  local  element  stiffnesses  for  top  and  other 
fifteen  elements  on  each  pile  in  the  group.  In 
this  program,  each  pile  in  the  group  is  divided 
into  16  elements  and  length  of  top  element  may  be 
different  from  the  other  fifteen  elements 
depending  on  free  length  of  the  pile  group  above 
ground  surface. 

(13) 

Create  location  matrices  for  all  pile  elements  of 
the  group  and  write  them  to  the  temporary  file  in 
unit  NU02 . 

(14) 

Assemble  all  pile  element  local  stiffnesses  into 
the  global  stiffness  matrix  using  their  location 
matrices. 

(15) 

Incorporate  force  or  displacement  boundary 
conditions  by  modifying  the  global  stiffness 
matrix  and  external  force  vector. 

(16) 

Incorporate  the  axial  soil  resistance  of  pile  tips 
into  the  global  stiffness  matrix. 

(17) 

Write  the  global  stiffness  matrix,  without  the 
soil  stiffness  assembled,  into  the  temporary  file 
in  unit  NU03 . 

(18) 

Create  initial  stiffness  of  the  soil  by  inverting 
initial  soil  flexibility  matrix.  The  initial  soil 
flexibility  matrix  is  created  by  adding  initial 

P 
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pile-soil  flexibilities  in  the  diagonal  of  pile- 
soil-pile  flexibility  matrix  created  in  step  #7. 
The  initial  pile-soil  flexibilities  are  obtained 
from  the  reciprocals  of  initial  slopes  of  p-y 
curves . 

(19)  Assemble  the  soil  stiffness  matrix  into  the  global 

stiffness  matrix  using  its  location  matrix 
calculated  in  step  #9. 

(20)  Increment  loop  for  external  force/displacements 

applied  at  top  of  piles. 

(21)  Zero  external  force  vector. 

(22)  Zero  old  displacement  vector. 

(23)  Calculate  external  force  vector  for  current 

increment  in  step  #20. 

(24)  Initialize  convergence  flag  ICON  = 0. 

(25)  Increment  iteration  loop. 

(26)  Solve  the  system  {fg^}  = [K]  * {w}  for  {w} , the 

displacement  vector. 

(27)  Calculate  error  in  displacements  by  finding 

absolute  maximum  difference  between  the 
displacement  vector  calculated  in  step  #26  and  the 
old  displacement  vector. 

(28)  Check  if  iteration  ^ 1 and  error  in  displacements 

< prescribed  tolerance. 
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STEP# 


DESCRIPTION 


(29-A) 

(29-B) 

(30) 

(31-A) 

(i) 

(ii) 


111) 


(iv) 


If  yes,  make  flag  ICON  =1.  Go  to  step  #30. 

If  no,  continue. 

Check  if  flag  ICON  = 1 
If  yes. 

Rewind  the  temporary  file  in  unit  NU03 . 

Read  Kindlin' s pile-soil-pile  flexibility  matrix 
from  the  temporary  file  in  unit  NU03. 

Read  global  stiffness  matrix,  without  the  soil 
stiffness  matrix  assembled,  from  the  temporary 
file  in  unit  NU03. 

Calculate  secant  soil  stiffness  by  inverting 
secant  soil  flexibility.  The  secant  soil 
flexibility  is  obtained  from  adding  secant  pile- 
soil  flexibilities  in  Kindlin' s pile-soil-pile 
flexibility  matrix  obtained  in  step  31-A-(ii). 

The  secant  pile-soil  flexibilities  are  calculated 
by  dividing  local  displacements  of  pile  nodes  in 
soil  by  corresponding  p-y  spring  forces.  The 
local  displacements  of  pile  nodes  in  soil  are 
obtained  from  the  displacement  vector,  calculated 
in  step  #26,  using  the  location  matrix  for  the 
soil  stiffness  matrix. 

Assemble  secant  soil  stiffness  into  the  global 
stiffness  using  the  location  matrix  for  soil 


stiffness. 
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STEP# 

DESCRIPTION 

(Vi) 

Calculate  out-of -balance  forces  by  finding  the 
difference  in  internal  and  external  forces. 
Internal  forces  are  obtained  from  multiplying 
total  global  stiffness  calculated  in  previous 
step,  by  displacements  calculated  in  step  #26. 

(vii) 

Output  converged  displacements  (step  #26) , 
out-of-balance  forces  (31-A-vi)  and  forces  in  all 
pile  elements  and  soil  springs  (both  near-field 
and  far-field)  into  the  file  in  unit  NUOl.  Pile 
elements ' forces  are  retrieved  by  multiplying 
their  local  stiffnesses  by  local  pile  element 
displacement  vectors.  Local  displacement  vectors 
of  all  pile  elements  are  obtained  from  the 
displacement  vector,  calculated  in  step  #26,  using 
the  location  matrices  for  pile  element  stiffnesses 
stored  in  the  temporary  file  in  unit  NU02  (step 
#13).  Similar  to  pile  elements'  forces  retrieved 
from  pile  element  stiffnesses,  soil  springs' 
forces  are  retrieved  from  local  secant  soil 
stiffness  calculated  in  step  31-A-iv. 

(viii) 

Go  to  step  #20. 

(31-B) 

If  no,  continue. 

(32) 

Check  if  iteration  = max  iteration. 

(33-A) 

If  yes,  stop  the  execution  of  program. 

(33-B) 

If  no,  continue. 
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STEP# 


DESCRIPTION 


(34) 

(i)-(v) 

(Vi) 

(vii) 


Same  as  steps  31-A  (i)-(v) 

Copy  displacement  vector  calculated  in  step  #26 
into  the  old  displacement  vector. 

Go  to  step  #25. 


3 . 4 Solution  Strategy 


The  solution  approach  used  herein  is  the  secant 
stiffness.  To  begin  the  process,  the  global  secant 
stiffness  [K]  must  be  assembled;  and  the  external  force 
vector  {fgx}  is  determined.  The  force-displacement 
relationship  is  the  one  given  in  equation  3.15. 

{fex>  = [K]  * {W}  ...  Eqn.  3.15 

To  solve  for  the  nodal  displacements,  {w},  the  global 
stiffness  must  be  inverted  and  post-multiplied  by  the 
external  force  vector.  The  solution  strategy  is  depicted  in 
Figure  3.12.  A tangent  stiffness  is  employed  for  the  first 
step;  from  the  computed  displacements  and  given  p-y  curves, 
a new  secant  flexibility  is  obtained;  using  this  new 
flexibility  a global  stiffness  is  computed;  and  finally, 
employing  the  original  external  force  vector,  a new  set  of 
displacements  are  calculated  which  allows  the  process  to  be 
repeated  until  the  computed  displacements  are  almost  the 
same  as  those  used  in  the  secant  flexibilities.  Internal 
forces  are  then  retrieved  by  post  multiplying  the  final 
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Figure  3.12.  Secant  Solution  Strategy. 
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secant  global  stiffness  of  soil  by  the  final  converged 
displacement  vector.  The  out-of-balance  force  vector  is 
calculated  by  finding  the  difference  in  external  and 
internal  force  vectors.  The  secant  solution  procedure  is 
outlined  below. 

Given: 

[K]  j = Global  secant  stiffness  of  pile  elements 
and  soil  for  iteration  j ; 

[Kp]  = Pile  elements  stiffness  (constant)  ; 

n 

= T,  J^pj/  total  number  of  pile  elements; 

i=l 

[Fm]  = Mindlin  flexibility  for  pile-soil-pile 
interaction  (constant) ; 

[Ft]  = Tangent  pile-soil  flexibility  obtained  from 
initial  slopes  of  p-y  curves  (constant) ; 
[Fs]j  = Nonlinear  secant  pile-soil  flexibility 

obtained  from  p-y  curves  (O'Neill)  (not 
constant)  for  iteration  j; 

{w}j  = displacement  vector  for  iteration  j; 

{fg^}  = external  force  vector; 

{f,„}  = internal  force  vector; 

{fpjj}  = out-of -balance  force  vector; 

Tolerance  = Minimum  error  on  displacements  prescribed 

by  user  of  the  program  LPG. 

Steps ; 

(1)  For  iteration  j = 1,  assume 
[Fs]j  = [Ft]  and 
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for  iteration  j 5«^  1/  calculate 
[Fs]j  using  ; 

(2)  For  iteration  j,  calculate 

[K]j  = [Kp]  + [ [Fin]  + [Fs]j.  ]'’  ; 

(3)  For  iteration  j,  calculate 

{w}j  = [K]/'  * ; 

(4)  For  iteration  j,  calculate 

{(Sw}j  = {w}j  - {w}j.,  for  j ^ 1 and 
{5w}j  = {w}j  for  j=l  ; 

(5)  For  iteration  j,  calculate 
error  = abs  max  {5w}-  ; 

(6)  Repeat  process  (l)-(5)  until  error  < Tolerance;  let 
jf  be  the  final  iteration  for  which  the  displacements 
have  converged; 

(7)  Calculate 

(a)  [Fs]j^^i  using  {w}j^  and 

(b)  = [Kp]  + [ [Fm]  + [Fs]j.f^i  ]■’  ; 

(8)  Retrieve  internal  forces 

(£,„>  = {w)j,  ; 

(9)  Calculate  out-of-balance  forces 

(£*}  = <£|n>  - • 

3 . 5 Program  Optimization 

To  efficiently  use  computer  memory  needed  to  run  the 
program  LPG,  a dynamic  memory  storage  allocation  method  is 
implemented  in  its  source  code.  This  allocation  sets 
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dimensions  of  all  arrays  needed  to  analyze  a pile  group 
problem  at  the  time  of  execution.  It  also  stores  all  the 
arrays  in  a single  big  array  called  A(MTOT) . The  size  of 
the  big  array  is  defined  by  the  size  parameter  MTOT  at 
beginning  of  the  main  routine  of  the  program  source  code. 

The  big  array  A(MTOT)  is  stored  at  a specific  location,  the 
address  of  named  common  block  COMMON/BIG/,  in  the  memory. 

It  was  observed  that  major  portion  of  time  in  running 
the  program  is  spent  on  inverting  the  soil  flexibility 
matrix  to  obtain  the  soil  stiffness  matrix  and  solving  the 
simultaneous  eguations  (Eqn.  3.15)  to  obtain  displacements. 
After  careful  analysis,  two  methods  were  contemplated  to 
optimize  on  the  run  time.  One  is  incorporating  an  efficient 
equation  solver  and  the  other  is  reducing  the  size  of  the 
pile  group  problem  by  using  symmetry  of  pile  group  geometry. 
Accordingly  two  versions  of  the  program,  PROFILE  (Appendix 
C)  and  LU  (Appendix  D)  were  created. 

In  PROFILE  version,  a profile  equation  solver  (also 
called  active  column  equation  solver)  SUBSOL  is  used  to 
solve  the  simultaneous  equations  and  invert  the  soil 
flexibility  matrix.  This  equation  solver  requires  the  two 
matrices,  the  global  stiffness  matrix  of  the  simultaneous 
equations  and  the  soil  flexibility  matrix,  to  be  stored  in 
two  compact  vectors.  For  example,  in  the  vector  GLK(NGT) 
all  non-zero  right-off-diagonal  and  diagonal  entries  of  the 
global  stiffness  matrix  are  stored  compactly.  This  type  of 
compactly  storing  profile  of  non-zero  entries  of  a matrix 
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into  a vector  is  called  profile  storage  (8) . The  entry  in 
the  vector  GLK  corresponding  to  any  entry  in  the  global 
stiffness  matrix  can  be  located  by  the  algorithm  of  the 
equation  solver  (8) . Using  this  type  of  profile  storage  is 
very  efficient  in  saving  a considerable  amount  of  computer 
memory  and  time  for  computations. 

In  LU  version,  a matrix  decomposition  method  LU  is 
employed.  In  the  LU  matrix  decomposition  method,  the  global 
stiffness  matrix  or  the  soil  flexibility  matrix  is 
decomposed  in  to  a Lower  unit  triangular  and  an  Upper 
triangular  matrix  before  solution  or  inversion  (29) . In  the 
LU  version  of  the  program  LPG,  a symmetry  option  is  included 
to  optimize  on  the  size  of  the  pile  group  problem  using 
symmetry  of  pile  group  geometry.  Often  a pile  group  in  real 
world  is  designed  as  a square  or  rectangular  array  of 
uniformly  spaced  piles.  This  array  of  piles  can  be  modeled 
by  only  a few  piles  if  symmetry  of  the  array  is  utilized. 

For  example  consider  the  two-pile  group  shown  in  Figure 
3.13.  Assume  that  both  the  piles  are  of  equal  length  and 
material  properties  and  the  top  of  each  pile  is  subjected  to 
a force  of  equal  magnitude  in  X direction.  Each  pile  is 
discretized  into  four  elements  and  there  are  five  nodes  in 
each  pile.  There  are  ten  translations  in  X direction,  one 
translation  (degree  of  freedom)  per  node.  This  two-pile 
group  can  be  modeled  by  a single  pile  with  five  degrees  of 
freedom  as  explained  below.  Each  displacement  at  the  ten 
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Figure  3.13  Symmetry  of  Piles  in  a Two-Pile  group. 
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degrees  of  freedom  of  the  two-pile  group,  is  solved  by 
the  following  relationship: 

10 

5.-  = E fj  : *q;  , for  i = 1,10  ...  Eqn.  3.16 

1=1 

where  5,-  = displacement  at  degree  of  freedom  i; 

f.-  ; = flexibility  of  degree  of  freedom  i due  to  unit 

w J 

force  in  X direction  at  degree  of  freedom  j (This 
flexibility  term  is  obtained  after  assembling  the  Mindlin's 
pile-soil-pile  flexibility  matrix  and  the  pile-soil 
flexibility  matrix  from  p-y  curves) ; 

q-  = force  in  X direction  at  degree  of  freedom  j . 

Since  both  the  piles  in  the  two-pile  group  are 
geometrically  similar  and  also  loaded  symmetrically,  they 
will  deform  identically.  So  the  displacements  and  forces  in 
X direction  at  the  degrees  of  freedom  one  to  five  of  the 
first  pile  will  be  similar  to  those  respectively  at  degrees 
of  freedom  six  to  ten  of  the  second  pile  of  the  two-pile 
group.  Hence  the  displacements  at  the  degrees  of  freedom 
one  to  five  of  the  two-pile  group  can  be  written  as: 

10 

= E fj  J.  *qj-  , for  i = 1,5 

j=l 

5 

= E (fj  j+fj  j+5)*qj  , for  i = 1,5  ...  Eqn.  3.17 

j=l 

There  are  10  unknowns  (10  displacements)  in  equation 
3.16  and  only  5 unknowns  (5  displacements)  in  equation  3.17. 
Thus  it  can  be  observed  that  the  symmetry  of  pile  group 
geometry  has  reduced  the  problem  size.  In  Appendix  G,  a 
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four-pile  group  problem  is  reduced  to  a single  pile  problem 
and  solved  as  explained  above. 

3 . 6 Program  Input  and  Output 

Input  format  for  both  versions  of  the  program  LPG  is 
given  in  user's  manual  of  the  program  (Appendix  B) . Typical 
input  and  output  data  sets  for  both  versions  of  the  program 
are  included  in  Appendices  F and  G. 


CHAPTER  4 
VERIFICATION 


4 . 1 Introduction 

The  major  objectives  of  this  research  are  to  create  a 
computer  program  that  would  calculate  the  lateral  load 
deformation  response  of  pile  groups  and  to  prove  that  the 
methods  employed  were  accurate.  To  verify  that  the  group 
program  works  is  to  compare  its  results  with  published 
linear  solutions  and  also  use  a commercially  available 
software  and  compare  its  results  with  the  group  program. 
The  group  program  is  also  verified  by  modelling  one  of  the 
few  full  scale  lateral  load  field  test. 

In  order  to  depict  linear  soils,  two  more  types  of 

linear  p-y  curves,  in  addition  to  the  nonlinear  p-y  curves 

for  cohesionless  and  cohesive  soils  (Section  3.2),  were 

created  and  they  are  included  as  options  in  the  input  data 

format  for  the  program  LPG  (Appendix  B) . In  one  type  of 

linear  p-y  curve,  the  secant  soil  modulus  of  reaction  Es 
2 2 

(lb/ in  or  N/m  ) defined  in  equation  4.1,  is  assumed 
constant  with  depth. 


t * 

Note.  The  secant  modulus  of  soil  reaction  Es  (also  commonly 

denoted  as  K in  literature)  is  different  from  Young's  modulus 

of  soil  Es  (18)  . While  soil  stiffness  is  represented  J>y  Es  in 

the  elastic  continuum  model,  it  is  represented  by  Es  in  the 

subgrade  reaction  model  of  the  soil  behavior. 
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Es  = p/y  ...  Eqn.  4.1 

where  p = soil  reaction  (lb/ in  or  N/m) ; 

y = lateral  pile  deflection  (in  or  m) . 

♦ 

In  the  other  type  of  linear  p-y  curve  Es  is  assumed 
linearly  varying  with  depth,  as  given  by  the  following 
equation: 

Es  = k z ...  Eqn.  4.2 

where  k = modulus  of  lateral  subgrade  reaction 

(Ib/in^  or  N/m^)  ; 

z = depth  below  ground  surface  (in  or  m) . 

4 . 2 Single  Pile  Behavior 

Behavior  of  single  piles  under  lateral  load,  both  for 
linear  and  non-linear  elastic  soils,  was  verified  by  the 
program  COM624  (23) , a commercially  available  software.  For 

4r 

linear  elastic  soil,  a linear  soil  modulus  Es  linearly 
varying  with  depth  was  assumed.  For  non-linear  elastic 
soil,  the  p-y  curve  suggested  by  O'Neill  for  cohesionless 
soil  (Section  3.2.1)  is  used. 

Figures  4.1  (a) -(c)  show  the  results  of  free  headed 
single  piles.  From  the  results,  one  will  observe  that  the 
program  LPG  predicts  lateral  deflection  and  bending  moment 
distribution  along  the  pile  length  very  well  for  linear 
elastic  soil.  Also  one  will  notice  that  the  lateral  pile- 
head  load-deflection  for  non-linear  soil,  predicted  by  both 
the  programs  LPG  and  COM624  agree  very  well. 
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<-C0M624  -&-LPG 


Given: 

L=192";  D=12”;  £=4x10*^  psi;  Z=12”;  1=1018  in^; 

A=113  in  ; k=500  pci;  Ht=50  kip;  # of  Finite 

Elements=16 . 

Description: 

L = Length  of  pile; 

D = Diameter  of  pile; 

E = Young's  modulus  of  pile  material; 

Z = Free  standing  height  of  pile  above  ground  surface; 
I = Moment  of  inertia  of  pile  cross  section; 

A = Area  of  cross  section  of  pile; 
k = Modulus  of  horizontal  subgrade  reaction  for 
linear  elastic  soil  springs  (pci) ; 

= p/ (y*z)  ; 

p = Soil  reaction  (lb/ in)  at  any  depth  z (in)  in  soil; 
y = Horizontal  deflection  of  pile  at  the  depth  z; 

Ht  = Horizontal  load  applied  at  top  of  pile. 


Figure  4.1.  Results  of  Free  Headed  Single  Pile 

Comparison  with  COM624  Solution. 

(a)  Deflection  Vs  Depth  for  Linear  p-y  Curve; 
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C0M624  LPG 


Given: 

Same  parameters  as  in  Figure  4.1. (a). 
Description: 

Same  as  in  Figure  4.1. (a). 


Figure  4.1. — Continued. 

(b)  Bending  Moment  Vs  Depth  for  Linear  p-y  Curve; 
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C0M624  -B-  LPG 


Given: 

L=192”;  D=12";  E=4xl0  psi;  Z=12";  1=1018  in  ; 
A=113  in  ; <p=25°;  k=500  pci;  7 '=110  pcf;  # of 
Finite  Elements=16. 


Description: 

k = Modulus  of  horizontal  subgrade  reaction  for  non- 
linear elastic  springs  suggested  by  O'Neill  (14) 
for  cohesionless  soils; 

0 = Angle  of  internal  friction  of  the  soil; 

7'  = Effective  unit  weight  of  the  soil; 

Yt  = Horizontal  deflection  at  top  of  the  single  pile 

Description  of  all  other  parameters  remain  the  same  as 
in  Figure  4.1. (a). 


Figure  4.1. — Continued. 

(c)  Pile-Head  Load  Vs  Deflection  for  Non-Linear  p-y  Curve. 
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Figures  4.2  (a) -(c)  present  the  results  for  fixed 
headed  single  piles.  The  results,  like  those  for  free 
headed  case,  show  that  the  program  LPG  predicts  similar  to 
COM624 . 

4 . 3 Pile  Group  Behavior 
4.3.1  Linear  elastic  soil 

Pile  group  behavior,  under  lateral  loads,  for  linear 

elastic  soils  was  verified  with  Polous's  published  results 

(17,18).  The  Poulos's  work  assumes  the  soil  to  be  a 

homogeneous  elastic  continuum  where  as  the  program  LPG 

models  the  soil  by  discrete  linear  or  nonlinear  soil 

springs . So  the  numerical  value  of  the  Young ' s modulus  Es 

for  a linear  elastic  soil  represented  by  Poulos's  elastic 

continuum  model  and  the  soil  modulus  Es  for  the  linear 

elastic  soil  represented  by  the  program  LPG's  linear  p-y 

springs  model  will  not  be  the  same.  Consequently,  in  order 

to  compare  the  results  of  both  the  models,  a linear  soil 

* 

modulus  Es  constant  with  depth  was  selected  such  that 
response  of  a laterally  loaded  single  pile  predicted  by  LPG 
is  similar  to  that  from  a finite  element  solution.  The 
finite  element  solution  used  herein  for  this  purpose  is  the 
one  given  by  Randolph  (20)  which  also  assumes  the  soil  to  be 
a homogeneous  elastic  continuum.  Also  the  finite  element 
solution  for  the  single  pile  is  simpler  than  the  Poulos's 
solution  and  it  predicts  similar  to  the  latter. 


58 


<—  C0M624  -B-  LPG 


Given : 

Same  parameters  as  in  Figure  4.1. (a). 
Description: 

Same  as  in  Figure  4.1. (a). 


Figure  4.2.  Results  of  Fixed  Headed  Single  Pile 

Comparison  with  COM624  Solution. 

(a)  Deflection  Vs  Depth  for  Linear  p-y  Curve; 
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C0M624  -B-  LPG 


Given: 

Same  parameters  as  in  Figure  4.1. (a). 
Description: 

Same  as  in  Figure  4.1. (a). 


Figure  4.2. — Continued . 

(b)  Bending  Moment  Vs  Depth  for  Linear  p-y  Curve; 
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*-  C0M624  -B-  LPG 


Given: 

L=192”;  D=12”;  E=4xl0  psi;  Z=12”;  1=1018  in  ; 
A=113  in  ; 0=25°;  k=500  pci;  7 '=110  pcf;  # of 
Finite  Elements=16 . 


Description: 

k = Modulus  of  horizontal  subgrade  reaction  for  non- 
linear elastic  springs  suggested  by  O'Neill  (14) 
for  cohesionless  soils; 

0 = Angle  of  internal  friction  of  the  soil; 

7'  = Effective  unit  weight  of  the  soil; 

Yt  = Horizontal  deflection  at  top  of  the  single  pile 

Description  of  all  other  parameters  remain  the  same 
as  in  Figure  4.1. (a). 


Figure  4.2. — Continued . 

(c)  Pile-Head  Load  Vs  Deflection  for  Non-Linear  p-y  Curve. 
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Figures  4.3  (a) -(b)  present  the  results  for  four  pile 
group  in  an  elastic  soil.  From  the  results  one  will  observe 
that  the  program  LPG  predicts  well  for  both  fixed  and  free 
pile-heads.  Also  one  will  observe  that  it  predicts  lower 
group  displacements  compared  to  Poulos's  results  when  1/d 
ratio  is  larger. 

Figures  4.4  (a) -(d)  show  the  results  for  a sixteen  pile 
group  in  an  elastic  soil.  From  the  results  one  will  observe 
that  the  program  LPG,  when  compared  to  the  Poulos's  results, 
predicts : 

1.  equally  well  for  both  fixed  and  free  headed  piles; 

2 . lower  and  comparable  group  displacement  ratios  for 
higher  and  lower  1/d  ratios  respectively; 

3.  comparable  and  not  comparable  horizontal  load 
distribution  for  lower  and  higher  1/d  ratios 
respect i ve ly . 

The  larger  discrepancy  for  the  higher  1/d  ratio  (or 
longer  piles),  as  observed  in  the  Figures  4.3  (a) -(b)  and 
4.4  (a) -(d),  may  be  due  to  difference  in  modeling  of  the 
soil  and  solution  technique  used.  As  mentioned  elsewhere,  a 
continuum  model  and  discrete  elements  model  are  used 
respectively  in  the  Poulos ' s work  and  the  program  LPG  to 
represent  the  soil.  The  solution  technique  used  in  the 
Poulos's  work  is  Integral  Equation  Method  where  as  in  the 
program  LPG,  it  is  Finite  Element  Method. 
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Given: 

L/D=25;  /ig=0.5;  Kr=10  . 

Description: 

H = Total  load  applied  to  all  piles  in  a group; 

Es  = Young's  modulus  of  elastic  half  space  material; 

D = Diameter  of  each  pile  in  the  group; 
y = Lateral  displacement  of  the  top  of  each  pile  in 

the  group  (Equal  displacement  at  all  pile  heads) ; 
= Lateral  displacement  of  the  top  of  a single  pile 
carrying  a unit  load; 

S = Center  to  center  spacing  of  piles  in  the  group; 

= Poisson's  ratio  of  the  elastic  half  space 
material; 

Length  of  each  pile  in  the  group; 

Moment  of  inertia  of  pile  cross  section; 

Young's  modulus  of  pile  material; 

Ratio  of  the  group  displacement  to  the 
displacement  of  a single  pile  carrying  the  same 
total  load  as  the  group; 

yg 


Hg  Yu 
Epip 

Esl"^ 

Figure  4.3.  Results  of  Four-Pile  Group  Comparison 

with  Poulos's  Elastic  Solution. 

(a)  Influence  of  Pile-head  fixity  on  Rr; 


L = 
Ip  = 
Ep  = 
Rr  = 


Kr  = 
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S/D 


Given:  ^ 

Kr=10  ; /ig=0.5;  Fixed-headed  group. 

Description: 

Same  as  in  Figure  4.3. (a). 


Figure  4.3 — Continued. 

(b)  Influence  of  L/D  on  Rr. 
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Given: 

L/D=25;  Ms=0-5;  Kr=10  . 

Description; 

Same  as  in  Figure  4.3. (a). 


Figure  4.4.  Results  of  Sixteen-Pile  Group  Comparison 

with  Poulos's  Elastic  Solution. 

(a)  Influence  of  Pile-Head  Fixity  on  Rr; 
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S/D 


Given: 

Kr=10  /Ug=0.5;  Fixed-headed  group. 

Description: 

Same  as  in  Figure  4.3. (a). 


Figure  4.4. — Continued . 

(b)  Influence  of  L/D  on  Rr; 
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Given: 

Kr=10  /Lig=0.5. 


Description: 

H = Horizontal  load  on  a pile  in  a group; 

Hav  = Average  of  horizontal  loads  on  all  piles  in  the 
group . 

Description  of  all  other  parameters  are  the  same  as  in 
Figure  4.3. (a) . 


Figure  4.4 — Continued. 

(c)  Horizontal  Load  Distribution  for  Fixed  Pile-Heads 
and  L/D  =10; 
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S/D 


Given : 


Kr=10 


-5 


ju  =0 . 5 


Description: 

H = Horizontal  load  on  a pile  in  a group; 

Hav  = Average  of  horizontal  loads  on  all  piles  in  the 
group . 

Description  of  all  other  parameters  are  the  same  as  in 
Figure  4.3. (a) . 


Figure  4.4 — Continued. 

(d)  Horizontal  Load  Distribution  for  Fixed  Pile-Heads 
and  L/D  = 100; 
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4.3.2  Nonlinear  Elastic  Soil 

Regarding  verification  of  pile  group  response  predicted 
by  the  program  LPG,  for  a nonlinear  or  a realistic  soil, 
the  data  obtained  from  a field  load  test  are  used  and  the 
results  are  discussed  in  next  section. 

Before  going  to  next  section,  typical  load  deflection 
responses  for  static  loading  predicted  by  the  program  LPG 
for  a four-pile  group  and  a single  pile  for  a typical 
realistic  nonlinear  soil  profile,  are  depicted  in  figure 
4.5.  Input  and  output  for  this  analysis  are  given  in 
Appendix  G.  The  soil  data,  used  for  both  the  single  pile 
and  four-pile  group,  might  be  representative  of  a stiff 
clay.  From  the  figure  4.5,  following  conclusions  can  be 
drawn : 

1.  because  the  load  transfer  curves  are  nonlinear  in 
nature,  both  the  single  and  the  group  response  are 
nonlinear; 

2.  a single  pile  carries  the  maximum  pile-head  load 
for  a particular  pile-head  lateral  deflection  when  compared 
to  the  average  load  carried  by  a group  pile  for  the  same 
pile-head  lateral  deflection; 

3.  when  the  spacing  between  the  group  piles  increases, 
the  group  piles  tend  to  behave  like  a single  pile. 

It  was  also  found  from  further  analysis  that  the  group 
response  for  the  four-pile  group  shown  in  figure  4.5 
significantly  depends  on  shear  modulus  Gs  of  the  soil 
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Given: 

L=540";  E=10xl0*  psi;  1=2898  in  ; A=86  in^; 

D=18”;  Z=54";  Static  loading;  ii=0.5;  Fixed- 

headed group;  0^=600  psi;  Cu=18  psi;  €50=0.006; 

^ioo~®  • • 

Description: 

Gs  = average  shear  modulus  of  soil  along  the  length 
of  pile; 

jLi  = Poisson's  ratio  of  soil; 

Cu  = undrained  shear  strength  of  soil; 

€50  = UU  triaxial  compression  strain  at  50%  of 

failure  deviatoric  stress  of  soil; 
e^oo  ~ ^ triaxial  compression  failure  strain  of  soil. 

Description  of  all  other  parameters  are  the  same  as  in 
Figure  4.1. (a) . 


Figure  4.5.  Typical  Non-Linear  Behavior  of  a Single 

Pile  and  Four-Pile  Group  as  Predicted  by  LPG. 
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separating  the  piles.  Typical  load-deflection  response  for 
cyclic  loading,  both  for  the  single  pile  and  four-pile 
group,  will  also  be  similar  to  the  static  loading  case 
depicted  in  figure  4.5. 

4 . 4 Houston.  Texas  Pile  Group  Study 

After  a thorough  literature  review,  it  was  found  that 
only  data  from  a single  field  load  test,  for  a lateral 
loaded  pile  group,  with  individual  pile-head  load-deflection 
and  pile-head  load-maximum  bending  moment  measurements,  are 
available  to  study  for  this  dissertation.  The  load  test 
data  available  are  the  results  obtained  from  a field  static 
and  cyclic  lateral  load  test  on  a single  and  nine-pile  group 
in  Houston,  Texas  in  December  1984  (3) . Both  the  single 
pile  and  the  piles  in  the  group  were  10.75  inch  outer 
diameter  and  the  group  piles  were  at  a spacing  of  three 
times  the  outer  diameter.  The  soil  profile  of  the  load  test 
site  consisted  of  an  artificially  compacted  dense  sand 
overlying  a natural  clay  deposit.  The  ground  water  table 
was  at  the  ground  surface  level.  Figures  4.6  and  4.7  depict 
the  schematic  drawing  of  the  single  pile  and  group  piles 
used  for  the  load  test  program  at  Houston,  Texas.  Included 
also  in  the  figures  is  the  soil  profile  at  the  load  test 
site.  In  order  to  model  any  single  pile  or  pile  group  with 
the  program  LPG,  the  following  engineering  characteristics 
of  the  soil  are  needed: 
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^ 

SAND 


CLAY 


Point  of  Load 
MudUne 


k = 70  pcT.0=  50  degroM  . pci 


Cu  = 1 8 psi  ® 1 1 4" 

bolow  ground 
surface  and 

= 24  psi  d 468^' 

below  grourid 
surfoce 

€ 50  = 0.005 


SDC  VEW 


= 0.01 

100 


StMl  Pipe  Pile 
10.75  In  00 
with  0.565  In.  wdl 
ihlckrtess 


CROSS  SECTION 


Figure  4.6.  Schematic  Drawing  of  Single  Pile, 

Houston,  Texas. 


72 


Steel  Pipe  Pile 
1 0.75  In  OD 
with  0.565  in  wall 
thickness 


SDE  VCW 


Grout 


O 

o 

07" 

O 

o 

0 f 

Steel  Rpe  Pile 
6.625  In  OD 
with  0.310  in  wd 

o 

o 

0 

thickness 

3D 


3D 


CROSS  SECTION 


PLAN  VEW 


Figure  4.7.  Schematic  Drawing  of  Pile  Group, 

Houston,  Texas. 
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Gs 


/ 


M 


0/  k/  7 


CU,  ^50f  ^100 


= parameters  to  calculate  Mindlin's 
pile-soil-pile  interaction  (Section 
3.3)  ; 

= parameter  to  define  linear  force- 
displacement  relationship  for  soil  at 
pile  tip; 

= parameters  to  define  non-linear  p-y 
curve  for  sand  (Section  3.2.1); 

= parameters  to  define  non-linear  p-y 
curve  for  clay  (Section  3.2.2); 


where 

2 2 

Gs  = average  shear  modulus  of  soil  (lb/ in  or  N/m  ) 
along  the  length  of  pile; 

H = Poisson's  ratio  of  soil; 

= axial  linear  tip  spring  stiffness  (lb/ in  or 
N/m)  . 

0 = angle  of  internal  friction  of  soil  (degree) ; 

k = modulus  of  horizontal  subgrade  reaction  of 
soil  (Ib/in^  or  N/m^) ; 

7 = effective  unit  weight  of  soil  (Ib/in^  or  U/m)  ; 

Cu  = undrained  shear  strength  of  soil; 

ejQ  = UU  triaxial  compression  strain  at  50%  of  failure 
deviatoric  stress  of  soil; 

e,QQ  = UU  triaxial  compression  failure  strain  of  soil. 

Regarding  the  appropriate  shear  modulus  of  the  soil  Gs 
to  be  used  in  the  Mindlin's  pile-soil-pile  interaction 
calculations,  there  is  not  sufficient  data  in  the  literature 
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and  research  like  centrifuge  model  testing  needs  to  done. 
Until  more  information  is  available,  the  shear  modulus  of 
the  soil  Gs  may  be  calculated  from  the  Young's  modulus  Es 
and  the  Poisson's  ratio  n of  the  soil,  using  the  following 
elasticity  equation: 

Es 

Gs  = . . . Eqn . 4.3 

2 (1+M) 

For  a cohesionless  soil,  the  Young's  modulus  Es  is  obtained 
from  its  modulus  of  lateral  reaction  k (lb/ in  or  N/m^)  as 
given  by  the  equation  3.6.  For  a cohesive  soil,  the  Young's 
modulus  Es  is  obtained  from  its  correlation  to  undrained 
shear  strength  Cu  as  given  by  O'Neill  (6)  in  Table  3.2  or 
Banerjee  and  Davies  (1)  in  equation  3.5.  Table  4.1 
summarizes  the  calculations  for  the  average  shear  modulus  Gs 
used  for  analysis  in  the  Houston,  Texas  single  pile  and 
group  piles  study.  For  Poisson's  ratio,  a typical  value  of 
0.3  for  sand  and  0.5  for  clay  (18)  is  used.  From  the  Table 
4.1,  it  can  be  observed  that  two  different  numerical  values, 
564  and  842  psi  are  available  for  Gs.  The  differences  in 
the  values  are  due  to  two  different  correlations,  one 
suggested  by  O'Neill  (6)  and  the  other  by  Banerjee  and 
Davies  (1) , used  for  evaluating  Es  for  clay.  For  clarity, 
analyses  by  the  program  LPG  using  Gs  equal  to  564  and  842 
psi  will  be  called  LPG-0' Neill  and  LPG-Banerjee 
respectively  henceforth.  It  is  noted  that  for  clay,  the 
same  Es-Cu  correlation  for  evaluating  Es,  is  also  used  for 
calculating  its  non-linear  p-y  curve  (Section  3.2.2). 


Table  4.1.  Calculation  of  Shear  Modulus  Gs  for  Soil  Profile  at 

the  Houston  Pile  Group  Load  Test  Site. 
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Table  4.1.  — Continued 
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Any  value  can  be  used  for  the  axial  tip  spring 
stiffness  (lb/ in  or  N/m)  for  the  field  load  test  being 
analyzed,  since  only  lateral  load  behavior  is  studied  in 
this  dissertation.  Also  the  lateral  group  or  single  pile 
behavior  is  independent  of  axial  behavior  for  the  program 
LPG  since  axial  pile  element  stiffnesses  are  uncoupled  from 
lateral  stiffnesses  i.e.  no  P-5  effect  (Section  3.1). 
Consequently  a value  of  lo'^  lb/ in  is  used  for  K^. 

To  define  p-y  curves  for  sand,  an  angle  of  internal 
friction  <p'  equal  to  50°,  a modulus  of  subgrade  reaction  k' 
equal  to  70  pci  and  an  effective  unit  weight  of  0.0355  pci 
are  used. 

To  define  p-y  curves  for  clay,  following  input  values 
are  used  for  Cu,  ejQ  and 
Cu  = 18  psi  at  top  of  clay  layer  and 

= 24  psi  at  pile  tip  in  clay; 

€50  = 0.005; 

^100  ~ 0.01. 

Figure  4.8  depicts  definition  of  leading,  middle  and 
trailing  rows  of  the  pile  group  analyzed.  For  either 
compression  or  tension  stroke,  a leading  row  is  defined  as 


'Note . Actually  Brown  (3)  back  figured  the  input  parameters 
0=50  and  k=60  pci  by  fitting  measured  p-y  data  in  the  p-y 
curve  suggested  by  Reese  et  al.  (21) . Since  the  program  LPG 
uses  the  p-y  curve  suggested  by  O'Neill  (14)  which  is  slightly 
different  from  the  curve  used  by  Brown  (Section  3.2.1),  the 
input  parameters  0=50°  and  k=70  pci  were  selected  so  that  both 
the  curves  produced  the  same  p-y  relationship. 
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Figure  4.8.  Definition  of  Leading,  Middle  and 

Trailing  Rows  and  Pile  Identification 
Numbers  for  the  Houston,  Texas  Pile  Group. 
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the  row  which  is  in  contact  with  virgin  soil  with  out  any 
'shadow*  effects  of  other  rows.  The  trailing  row  is  the 
last  row  in  the  direction  of  loading  for  either  compression 
or  tension  stroke  and  the  middle  row  is  the  row  in  between 
the  leading  and  the  trailing  row. 

Response  of  the  single  pile  and  the  pile  group 
predicted  by  the  program  LPG,  in  comparison  to  the  field 
static  and  cyclic  load  test  data,  is  discussed  below.  In 
predicting  the  response  of  the  group,  field  pile-head 
displacements  of  each  pile  in  the  group  are  used  as 
prescribed  boundary  conditions  for  each  load  case.  Appendix 
F includes  a typical  input  and  output  data  set  of  the  single 
pile  and  nine-pile  group  analyzed. 

4.4.1  Static  Loading 

Figures  4.9  and  4.10  present  pile-head  load-deflection 
and  load-maximum  bending  moment  responses  of  the  single  pile 
for  cycle  #1  predicted  by  the  program  LPG.  The  predicted 
responses  match  very  well  with  the  field  data. 

Figures  4.11  (a)-(i)  depict  pile-head  load-deflection 
response  of  each  pile  of  the  nine-pile  group  for  cycle  #1 
predicted  by  the  program  LPG.  From  the  figures  it  can  be 
observed  that  the  program  LPG,  for  both  O'Neill's  and 
Banerjee's  Gs  values,  over  predicted  the  load  for  some  piles 
and  under  predicted  for  the  rest  for  a particular  pile-head 
deflection.  Figures  4.11  (j)-(l)  presents  the  response  of 
leading,  middle  and  trailing  rows.  It  can  be  interpreted 
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□ LOADTEST(C)  ■ LOAD  TEST(T) 


Figure  4.9. 


Pile-Head  Load  Vs  Deflection  for  the  Houston, 
Texas  Single  Pile  for  Cycle  #1. 
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□ LOADTEST(C)  ■ LOAD  TEST(T) 


Figure  4.10.  Pile-Head  Load  Vs  Maxmimuin  Bending 

Moment  for  the  Houston,  Texas  Single  Pile 
for  Cycle  #1. 
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□ LOADTEST(C) 

^ LOADTEST(T) 

LPG-BANERJEE(C) 

LPG-BANERJEE(T) 

LPG-O'NEILL(C) 

LPG-O’NEILL(T) 

Figure  4.11.  Pile-Head  Load  Vs  Deflection  for  the  Houston, 

Texas  Pile  Group  for  Cycle  #1. 

(a)  Pile  #1; 
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□ LOADTEST(C)  ® LOAD  TEST(T)  ^ LPG-BANERJEE(C) 
LPG-BANERJEE(T)  LPG-O'NEILL(C)  “+-  LPG-O’NEILL(T) 


Figure  4.11. — Continued, 
(b)  Pile  #2; 
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□ LOADTEST(C) 

^ LOADTEST(T) 

^ LPG-BANERJEE(C) 

LPG-B  ANERJEE(T) 

LPG-O'NEILL(C) 

-+“  LPG-O'NEILL(T) 

Figure  4.11. — Continued, 
(c)  Pile  #3; 


85 


□ LOADTEST(C) 

s LOADTEST(T) 

LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O'NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.11. — Continued, 
(d)  Pile  #4; 
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□ LOADTEST(C) 

® LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O'NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.11. — Continued, 
(e)  Pile  #5; 
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□ LOADTEST(C) 

^ LOADTEST(T) 

LPG-BANERJEE(C) 

LPG-BANERJEE(T) 

LPG-O'NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.11. — Continued, 
(f)  Pile  #6; 
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° LOADTEST(C) 

® LOADTEST(T) 

LPG-BANERJEE(C) 

LPG-BANERJEE(T) 

LPG-O’NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.11. — Continued, 
(g)  Pile  #7; 
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□ LOADTEST(C) 

s LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O'NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.11. — Continued, 
(h)  Pile  #8; 
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□ LOADTEST(C) 

^ LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O'NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.11. — Continued, 
(i)  Pile  #9; 
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□ LOADTEST(C)  ^ LOAD  TEST(T)  ^ LPG-O'NEILL(C) 
LPG-O'NEILL(T)  LPG-BANERJEE(C)  LPG-BANERJEE(T) 


Figure  4.11. — Continued, 
(j)  Leading  Row; 
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° LOADTEST(C)  ^ LOAD  TEST(T)  ^ LPG-O'NEILL(C) 
^ LPG-O'NEILL(T)  LPG-BANERJEE(C)  LPG-BANERJEE(T) 


Figure  4.11. — Continued, 
(k)  Middle  Row; 
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□ LOADTEST(C) 

^ LOADTEST(T) 

LPG-O’NEILL(C) 

^ LPG-O'NEILL(T) 

LPG-BANERJEE(C)  ' 

LPG-BANERJEE(T) 

Figure  4.11. — Continued. 
(1)  Trailing  Row; 
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e-  LEAD&TRALWG  ROWS  -H-  MIDOli  ROW  ^ AVG  ROW 


Figure  4.11. — Continued. 

(m)  Leading,  Middle  and  Trailing  Rows  and 

Average  Row  [as  predicted  by  LPG-Baner jee] ; 
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B-  LEAD4TRALNG  ROWS  -S-  MIDDLE  ROW  ^ AVG  ROW 


Figure  4.11. — Continued. 

(n)  Leading,  Middle  and  Trailing  Rows  and 

Average  Row  [as  predicted  by  LPG-0 'Neill] ; 
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□ LOADTEST(C) 

^ LOADTEST(T) 

LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O’NDLL(C) 

LPG-O'NEILL(T) 

Figure  4.11. — Continued, 
(o)  Average  pile 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

0 LOADTEST(T) 

LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O’NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.12.  Pile-Head  Load  Vs  Maxitiimum  Bending 

Moment  for  the  Houston,  Texas  Pile  Group 
for  Cycle  #1. 

(a)  Pile  #1; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

^ LOAD  TEST(T) 

^ LPG-BANERJEE(C) 

LPG-BANERJEE(T)  ■ 

LPG-O'NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.12. — Continued . 
(b)  Pile  #2; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

^ LOAD  TEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BAICRJEE(T) 

LPG-0'NEILL(C) 

LPG-0’NEILL(T) 

Figure  4.12. — Continued . 
(c)  Pile  #3; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

la  LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O’NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.12. — Continued . 
(d)  Pile  #4; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

® LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O'NEILL(C) 

LPG-O’NEILL(T) 

Figure  4.12. — Continued . 
(e)  Pile  #5; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

El  LOADTEST(T) 

^ LPG-BANERJEE(C) 

LPG-BANERJEE(T) 

LPG-O’NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.12. — Continued . 
(f)  Pile  #6; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

^ LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O'NEILL(C) 

LPG-0'NEILL{T) 

Figure  4.12. — Continued, 
(g)  Pile  #7; 
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MAX  BENDING  MOMENT  (KlP-lN) 


□ LOADTEST(C) 

s LOADTEST(T) 

LPG-BANERJEE(C) 

♦ LPG-BANERJE(T) 

LPG-O'NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.12. — Continued . 
(h)  Pile  #8; 
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MAX  BENDING  MOMENT  (KlP-IN) 


a LOADTEST(C) 

B LOADTEST(T) 

^ LPG-BANERJEE(C) 

LPG-BANERJEE(T) 

-H-  LPG-O’NEILL(C) 

-t-  LPG-O'NEILL(T) 

Figure  4.12. — Continued . 
(i)  Pile  #9; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

^ LOADTEST(T) 

LPG-O'NEILL(C) 

LPG-O'NEILL(T) 

LPG-BANERJEE(C)  ' 

LPG-BANERJEE(T) 

Figure  4.12. — Continued, 
(j)  Leading  Row; 
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MAX  BENDING  MOMENT  (KIP-IN) 


° LOADTEST(C) 

s LOAD  TEST(T) 

LPG-0'NEILL(C) 

^ LPG-OmL(T) 

LPG-8ANERJEE(C)  • 

LPG-BANERJEE(T) 

Figure  4.12. — Continued . 
(k)  Middle  Row; 
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MAX  BENDING  MOMENT  (KlP-lN) 


□ LOADTEST(C) 

El  LOADTEST(T) 

LPG-O'NEILL(C) 

^ LPG-O'NEILL(T) 

LPG-BANERJEE(C)  ■ 

LPG-BANERJEE(T) 

Figure  4.12. — Continued . 
(1)  Trailing  Row; 
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MAX  BENDING  MOMENT  (KlP-lN) 


S-  LEAD&TRALNG  ROWS  -B-  MIDDLE  ROW  ^ AVG  ROW 


Figure  4.12. — Continued. 

(m)  Leading,  Middle  and  Trailing  Rows  and 

Average  Row  [as  predicted  by  LPG-Baner jee] ; 
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MAX  BENDING  MOMENT  (KIP-IN) 


a-  LEAD&TRALNG  ROWS  -B-  MIDOf  ROW  ^ AVG  ROW 


Figure  4.12. — Continued. 

(n)  Leading,  Middle  and  Trailing  Rows  and 

Average  Row  [as  predicted  by  LPG-O'Neill] ; 
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AVG  MAX  BENDING  MOMENT  (KIPHN) 


□ LOADTEST(C) 

® LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T)  ■ 

LPG-O'NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.12. — Continued, 
(o)  Average  pile 
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from  the  figures  that  the  program  LPG,  under  predicts, 
fairly  well  and  over  predicts  the  load  for  the  leading, 
middle  and  trailing  rows  of  the  group  respectively  for  both 
Gs  values.  Figures  4.11  (m)  and  (n)  shows  the  response  of 
individual  rows  by  the  LPG-0' Neill  and  LPG-Baner jee.  It  can 
be  noticed  from  the  figures  that  the  leading  and  trailing 
row  respond  identically  and  they  have  higher  pile-head  load 
than  middle  row's.  Figure  4.11  (o)  presents  the  response  of 
an  average  pile.  From  the  figure,  it  is  observed  that  the 
pile-head  load  for  an  average  pile  of  the  group  predicted  by 
LPG-Banerjee  is  very  good  while  the  load  predicted  by  LPG- 
O 'Neill  is  lower  when  compared  to  field  data. 

Figures  4.12  (a)-(o)  presents  the  pile-head  load- 
maximum  bending  moment  response  of  each  pile,  each 
individual  row  and  an  average  pile  of  the  group.  The 
figures  exhibit  the  same  behaviors  as  those  for  pile-head 
load-deflection  response  of  the  group  discussed  earlier. 

Over  all  the  pile-head  load-maximum  bending  moment  response 
of  an  average  pile  predicted  by  LPG-Banerjee  is  the  best. 

4.4.2  Cyclic  Loading 

Figures  4.13  and  4.14  present  the  pile-head  load- 
deflection  and  pile-head  load-maximum  bending  moment 
responses  of  the  single  pile  for  cycle  #100  predicted  by 
LPG.  The  responses  match  well  with  the  field  data. 

Figures  4.15  (a)-(o)  present  the  pile-head  load- 
deflection  response  and  Figures  4.16  (a)-(o)  depict  the 
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□ LOADTEST(C)  ■ LOAD  TE5T(T) 


Figure  4.13.  Pile-Head  Load  Vs  Deflection  for  the  Houston, 

Texas  Single  Pile  for  Cycle  #100. 
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□ LOADTEST(C)  ■ LOAD  TEST(T) 


Figure  4.14.  Pile-Head  Load  Vs  Maximum  Bending 

Moment  for  the  Houston,  Texas  Single 
Pile  for  Cycle  #100. 
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pile-head  load-maximum  bending  moment  response  of  the 
group. These  figures  exhibit  behaviors  very  similar  to  those 
for  static  case  discussed  in  section  4.4.1.  From  all  the 
figures,  it  is  observed  that  leading  and  trailing  rows  of 
piles  behave  identical  and  LPG-Banerjee  predicts  the 
response  of  an  average  pile  in  the  group  very  well. 
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° LOADTEST(C) 

® LOADTEST(T) 

LPG-BANERJEE(C) 

LPG-BANERJEE(T) 

LPG-O’NEILL(C) 

LPG-0'NEILL{T) 

Figure  4.15.  Pile-Head  Load  Vs  Deflection  for  the  Houston 

Texas  Pile  Group  for  Cycle  #100. 

(a)  Pile  #1; 
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□ LOADTEST(C) 

s LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O'NEIll(C) 

LPG-0'NEILL(T) 

Figure  4.15. — Continued, 
(b)  Pile  #2; 
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□ LOADTEST(C) 

^ LOADTEST(T) 

LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O’NEILL(C) 

LPG-0'NEU.(T) 

Figure  4.15. — Continued, 
(c)  Pile  #3; 
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□ LOADTEST(C) 

s LOADTEST(T) 

^ LPG-BANERJEE(C) 

LPG-BANERJEE(T) 

LPG-OmL(C) 

LPG-0'NEILL(T) 

Figure  4.15. — Continued, 
(d)  Pile  #4; 
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□ LOADTEST(C) 

® LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O’NEILL(C) 

LPG-OmL(T) 

Figure  4.15. — Continued . 
(e)  Pile  #5; 
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0 0.2  0.4  0.6  0.8  1 1.2  1.4  1.6  1.8  2 

PILE  HEAD  DEFLECTION  (IN) 


□ LOADTEST(C) 

0 LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPC-CNELLlC) 

LPG-0'NEia(T) 

Figure  4.15. — Continued, 
(f)  Pile  #6; 
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□ LOADTEST(C) 

s LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-aNE«i(C) 

LPG-0'N0a(T) 

Figure  4.15. — Continued . 
(g)  Pile  #7; 
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□ LOADTEST(C) 

s LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-aNEIli(C) 

LPG-0'NEILL(T) 

Figure  4.15. — Continued . 
(h)  Pile  #8; 
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□ LOADTEST(C) 

E LOADTEST(T) 

^ LPG-BANERJEE(C) 

LPG-BANERJEE(T)  ■ 

LPG-O’NEILL(C) 

-H-  LPG-O'NEILL(T) 

Figure  4.15. — Continued, 
(i)  Pile  #9; 


125 


□ LOADTEST(C)  s LOAD  TEST(T)  ^ LPG-O'NEILL(C) 

^ LPG-OrJElLL(T)  -I-  LPG-BANERJEE(C)  LPG-BANERJEE(T) 


Figure  4.15. — Continued . 
(j)  Leading  Row; 
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□ LOADTEST(C) 

^ LOADTEST(T) 

LPG-O’NEILL(C) 

^ LPG-O'NEILL(T) 

LPG-BANERJEE(C) ' 

LPG-BANERJEE(T) 

Figure  4.15. — Continued . 
(k)  Middle  Row; 
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□ LOADTEST(C)  ^ LOAD  TEST(T)  ^ LPG-O’NEILL(C) 
LPG-O'NEILL(T)  LPG-BANERJEE(C)  LPG-BANERJEE(T) 


Figure  4.15. — Continued . 
(1)  Trailing  Row; 
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^ LEAD&TRAILING  ROWS  MIDDLE  ROW  AVG  ROW 


Figure  4.15. — Continued . 

(m)  Leading,  Middle  and  Trailing  Rows  and 

Average  Row  [as  predicted  by  LPG-Banerjee] ; 
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B-  LEAD&TRAILING  ROWS  -®-  MIDDLE  ROW  ^ AVG  ROW 


Figure  4.15. — Continued . 

(n)  Leading,  Middle  and  Trailing  Rows  and 

Average  Row  [as  predicted  by  LPG-0 ' Neill ] ; 
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° LOADTEST(C) 

® LOADTEST(T) 

LPG-BANERJEE(C) 

LPG-BANERJEE(T) 

LPG-O'NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.15. — Continued, 
(o)  Average  pile 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

s LOADTEST(T) 

LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O’NEILL(C) 

LPG-O’NEILL(T) 

Figure  4.16.  Pile-Head  Load  Vs  Maxmimum  Bending 

Moment  for  the  Houston,  Texas  Pile  Group 
for  Cycle  #100. 

(a)  Pile  #1; 
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MAX  BENDING  MOMENT  (KIP-IN) 


n LOADTEST(C) 

s LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O’NEILL(C) 

LPG-0'NEILL(T) 

Figure  4.16. — Continued . 
(b)  Pile  #2; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

® LOADTEST(T) 

LPG-BANERJEE(C) 

LPG-BANERJEE(T) 

LPG-O’NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.16. — Continued . 
(c)  Pile  #3; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

s LOADTEST(T) 

^ LPG-fiANERJEE(C) 

^ LPG-BANME(T) 

LPG-O'NaL(C) 

LPG-0'NEILL(T) 

Figure  4.16. — Continued, 
(d)  Pile  #4; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

s LOADTEST(T) 

LPG-BANERJEE(C) 

^ LPG-BANERJE[(T) 

-I~  LPG-OmL(C) 

LPG-O'NEILL(T) 

Figure  4.16. — Continued . 
(e)  Pile  #5; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

0 LOADTEST(T) 

LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O’NEILL(C) 

LPG-0'NEILL(T) 

Figure  4.16. — Continued . 
(f)  Pile  #6; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

s LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O’NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.16. — Continued . 
(g)  Pile  #7; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C)  ® LOAD  TEST(T)  LPG-BANERJEE(C) 
^ LPG-BANERJEE(T)  LPG-O'NEILL(C)  -+-  LPG-O'NEILL(T) 


Figure  4.16. — Continued, 
(h)  Pile  #8; 
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MAX  BENDING  MOMENT  (KIP-IN) 


° LOADTEST(C) 

s LOADTEST(T) 

^ LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

LPG-O'NEILL(C) 

LPG-O'NEILL(T) 

Figure  4.16. — Continued, 
(i)  Pile  #9; 
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MAX  BENDING  MOMENT  (KIP-IN) 


° LOADTEST(C) 

^ LOADTEST(T) 

LPG-O'NEILL(C) 

LPG-O'NEILL(T) 

LPG-BANERJEE(C) ' 

LPG-BANERJEE(T) 

Figure  4.16. — Continued . 
(j)  Leading  Row; 
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MAX  BENDING  MOMENT  (KlP-IN) 


□ LOADTEST(C) 

^ LOADTEST(T) 

LPG-O'NEILL(C) 

LPG-O'NEILL(T) 

LPG-BANERJEE(C) ' 

LPG-BANERJEE(T) 

Figure  4.16. — Continued . 
(k)  Middle  Row; 
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MAX  BENDING  MOMENT  (KIP-IN) 


□ LOADTEST(C) 

^ LOADTEST(T) 

LPG-O’NEILL(C) 

^ LPG-01Clli(T) 

LPG-BANERJEE(C) ' 

LPG-BANERJEE(T) 

Figure  4.16. — Continued . 
(1)  Trailing  Row; 
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MAX  BENDING  MOMENT  (KIP-IN) 


e-  LEAD&TRALNG  ROWS  -S-  MIDDLE  ROW  ^ AVG  ROW 


Figure  4 . 16 . -^Continued. 

(m)  Leading,  Middle  and  Trailing  Rows  and 
Average  Row  [as  predicted  by  LPG-Baner jee] ; 
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0 200  400  600  800  1000  1200  1400  1600  1800 


MAX  BENDING  MOMENT  (KIP-IN) 


a-  LEAD4TRALNG  ROWS  -a-  MIDDLE  ROW  ^ AVG  ROW 


Figure  4.16. — Continued . 

(n)  Leading,  Middle  and  Trailing  Rows  and 
Average  Row  [as  predicted  by  LPG-0 'Neill] ; 
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AVG  MAX  BENDING  MOMENT  (KIPHN) 


□ LOADTEST(C) 

13  LOADTEST(T) 

LPG-BANERJEE(C) 

^ LPG-BANERJEE(T) 

-+-  LPG-O'NEILL(C) 

-t-  LPG-O’NEILL(T) 

Figure  4.16, — Continued, 
(o)  Average  pile 


CHAPTER  5 

CONCLUSIONS  AND  RECOMMENDATIONS 

The  primary  objective  of  this  research  was  to  develop  a 
nonlinear  FEM  computer  program  (LPG)  to  model  laterally 
loaded  pile  groups.  From  the  results  obtained  using  the 
program,  following  conclusions  and  recommendations  have  been 
arrived  at: 

1.  The  program  LPG  reproduced  elastic  solutions  for 
laterally  loaded  single  piles  and  pile  groups  fairly  well. 

2.  For  a nonlinear  or  realistic  soil,  it  predicted 
that  lateral  load  capacity  of  a single  pile  is  higher  than 
average  lateral  load  capacity  of  a group  pile  and  the  group 
piles  tend  to  behave  like  the  single  pile  when  spacing 
between  them  increases. 

3.  For  a real-world  single  pile  problem,  it  predicted 
very  good  response  both  for  static  and  cyclic  loadings. 

4.  For  a real-world  pile  group  problem,  it  predicted 
the  response  of  an  average  pile  in  the  group  very  well  for 
both  static  and  cyclic  loadings. 

5.  Numerical  value  of  the  input  parameter  Gs,  the 
shear  modulus  of  the  soil  had  significant  influence  on  the 
group  behavior.  So  further  research  like  centrifuge  model 
tests  is  recommended  to  evaluate  Gs  for  different  soils. 
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For  the  Houston,  Texas  pile  group  (3)  analyzed  as  a 
model  of  a typical  real-world  pile  group  problem,  a value  of 
842  psi  for  Gs  produced  good  results  and  this  value  was 
arrived  at  by  using  Banerjee  and  Davies's  (1)  correlation  of 
Es  to  Cu.  This  correlation  was  also  implemented  in  the 
method  suggested  by  O'Neill  (6)  for  calculating  the  p-y 
curve  for  a cohesive  soil  which  is  used  in  the  program. 

6.  The  field  data  obtained  from  the  Houston,  Texas 
pile  group  load  test  exhibited  row-wise  load  distribution 
with  trailing,  middle  and  leading  rows  having  load 
capacities  in  the  order  of  increasing  magnitude  (3) . But 
the  program  LPG  predicted  identical  load  capacities  for  the 
leading  and  trailing  rows.  The  reason  for  identical  load 
capacities  is  the  use  of  Mindlin's  elastic  flexibilities 
(13)  to  calculate  far  field  effect  within  a pile  group.  In 
future,  if  available,  it  is  recommended  to  implement 
nonlinear  elastic  flexibilities  into  the  program  to 
represent  the  far  field  effect.  Also,  the  Mindlin's 
flexibilities  are  valid  only  for  a homogeneous  elastic  half 
space.  To  better  approximate  the  far  field  effect, 
flexibilities  valid  for  a layered  half  space,  such  as 
suggested  by  Luco*,  could  be  used. 


Note.  Luco,  J.E.  and  Wong,  H.L.,  "Seismic  Response  of 
Foundations  Embedded  in  a Layered  Half-Space,"  Earthquake 
Engineering  and  Structural  Dynamics,  Vol.  15,  pp.  233-247, 
1987. 


APPENDIX  A 

CALCULATION  OF  INITIAL  SLOPES  OF  NONLINEAR  P-Y  CURVES 
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APPENDIX  B 

USER'S  MANUAL  FOR  LPG-VERSIONS  1 AND  2 

B. 1 Introduction 

LPG  (Laterally  loaded  Pile  Group  ) is  a nonlinear  FEM 
program  specifically  developed  for  analyzing  a laterally 
loaded  pile  group.  In  this  program,  piles  are  modeled  by  3- 
D finite  beam  elements.  Pile-soil  and  pile-soil-pile 
interaction  among  the  piles  and  soil  within  the  group  is 
modeled  by  soil  springs.  The  interaction  is  assumed  to  be 
effected  by  two  types  of  springs,  near-field  and  far-field 
soil  springs.  The  near  field  soil  springs  are  nonlinear  and 
their  stiffnesses  are  obtained  from  p-y  curves  (6,10,14). 

The  far-field  soil  springs  are  linear  and  their  stiffnesses 
are  obtained  from  Mindlin's  flexibility  equations  (13). 

Axial  loads  are  transferred  to  the  soil  through  the  axial 
soil  springs  attached  to  the  tips  of  the  piles.  Since 
the  soil  is  nonlinear,  the  solution  of  the  system  will 
require  many  iterations. 

The  program  is  written  in  FORTRAN??  and  is  very 
portable.  It  is  recommended  to  run  the  program  in  main 
frame  computers  such  as  IBM  3090  and  VAX  or  micro  systems 
such  as  Sun  or  Sony. 
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B. 2 Input  Conventions 

Any  consistent  units  can  be  used. 

For  square  piles  use: 
dia=  4/tt  * width  of  pile 

Following  default  values  may  be  used  for  the  maximum 
# of  iterations  for  nonlinear  soil  analysis 
(MAXITER)  and  the  tolerance  on  displacements  (TOLER) 
for  convergence: 

MAXITER  =50 
TOLER  = lO'^ 

(a)  Following  typical  values  may  be  used  for  the 
Poisson's  ratio  RNU  for  soils: 

RNU  = 0.3  for  sand 
= 0.5  for  clay 

A spatial  average,  for  the  values  of  RNU  at 
seventeen  nodes  where  p-y  curves  (section  B.2.6)  are 
input,  may  be  used  for  soils  consisting  of  both  sand 
and  clay. 

(b)  Regarding  the  shear  modulus  GM  of  soils, 
currently  there  is  not  sufficient  data  in  literature 
and  further  research  like  centrifuge  testing  needs 
to  be  done.  Until  more  information  is  available, 
approximately  GM  may  be  obtained  at  any  depth  z from 
the  following  relationships: 

GM=0.5*k*z/  (1+RNU)  for  sand 
= 50  * Cu  / (1+RNU)  for  clay 
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where  k = soil  modulus  (F/li) 

z = depth  below  ground  surface  (L) 

2 

Cu  = undrained  shear  strength  (F/L  ) 

A spatial  average,  for  the  values  of  GM  at  seventeen 
nodes  where  p-y  curves  ( section  B . 2 . 6 ) are  input , 
should  be  used  for  any  soil  profile. 

(5)  For  defining  a p-y  curve,  use  p-y  data  either  for 
sand  (0,k,7, 0, 0, 0)  or  clay  (0,0,0,Cu, e50, elOO) . 

For  sand,  use  SPT  to  find  <p  (Figure  3.5)  and  0 to 
find  k (F/L^)  (Figure  3.6).  To  define  a linear 
p-y  curve  using  the  option  KSOIL  = 0 or  1,  use  p-y 
data  in  the  format  (0,k, 0, 0, 0, 0) . 

(6)  Total  17  p-y  curves,  one  for  each  node  of  a pile 
must  be  defined.  For  pile  group  with 

(a)  free  standing  height  (Z)  > 0 [Figure  B.l  (a)]. 

Node  #1  is  at  the  top  of  the  pile,  node  #2  is 
on  the  ground  surface  and  node  #17  is  at  the  tip  of 
the  pile.  Nodes  #2-17  are  equally  spaced  inside  the 
soil  at  an  interval  given  below: 

A1  = (total  length  of  pile  - Z)  / 15 
THE  P-Y  CURVE  DEFINED  FOR  NODE  #1  IS  IGNORED  BUT  IT 
IS  NECESSARY  TO  INPUT  DATA. 

(b)  free  standing  height  (Z)  = 0 [Figure  B.l  (b) ] , 

Node  #1  is  at  the  top  of  the  pile  and  also  on 
the  ground  surface  and  node  #17  is  at  the  tip  of  the 
pile.  Nodes  1-17  are  equally  spaced  inside  the  soil 
at  an  interval  given  below: 
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CA)  Z > 0 


CB]  Z 3 0 


Figure  B.l.  P-Y  Data  Preparation. 


153 


A1  = total  length  of  pile  / 16 
B. 3 Input  Data  Format 


LINE  #1  (NAME) : 

Input 

1.  Title  (maximum  70  characters)  (CHARACTER) 

LINE  #2  (UNITS) : 

Input 

1.  List  of  units  like  FT, KIPS, RAD  or  INCH, LBS, RAD  or 
any  consistent  set  of  units 
(maximum  70  characters)  (CHARACTER) 

LINE  #3  (KFLAG) : 

Input 

1.  0 for  complete  print  out 

1 for  summary  print  out 
LINE  #4  (TPL,E,RINER,AREA,DIA) : 

Input 

1.  Total  pile  length  (REAL,*^) 

2.  Youngs  modulus  of  pile  (REAL,*) 

3.  Moment  of  inertia  of  pile. (REAL,*) 

4.  Area  of  cross-section  of  pile  (REAL,*) 

5.  Dia  of  pile  (REAL,*) 

LINE  #5  (Z,KCYC): 

Input 

1.  Length  of  pile  above  ground  surface 

'Note.  An  asterisk  means  free  formatted  input  in  FORTRAN 
language . 
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(It  can  also  be  equal  to  zero)  (REAL,*) 

2.  0 for  static  loading  (INTEGER,*) 

1 for  cyclic  loading  (INTEGER,*) 

LINE  #6  (NPILE) / (NPILE,NPA) : 

Input 

1.  Total  number  of  piles  in  the  group 

2.  None  for  PROFILE  version  of  LPG 

Number  of  asymmetric  piles  for  LU  version  of  LPG 
LINE  #7  (MAXITER, TOLER) : 

Input 

1.  Maximum  # of  iterations  for  the  nonlinear 
soil  analysis  (INTEGER,*) 

2 . Tolerance  on  displacements  for  the  nonlinear 
soil  analysis  (REAL,*) 

LINE  #8  (KSOIL,GM,RNU) : 

Input 

1.  0 for  linear  p-y  curves  with  Es  constant  with 
depth ; 

* 

1 for  linear  p-y  curves  with  Es  linearly  varying  with 
depth ; 

2 for  non-linear  p-y  curves 

2.  Shear  Modulus  of  the  soil  (REAL,*) 

3.  Poisson's  ratio  of  the  soil  (REAL,*) 

LINE  #9  (TSTIF) : 

Input 

tt  2 2 

Note.  The  secant  modulus  of  soil  reaction  (lb/ in  or  N/m  ) 
is  defined  as  Es  = p/y. 
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1.  Tip  spring  stiffness  (REAL,*) 

LINE  #10:26  (total  of  17  lines,  one  for  each  p - y curve 

PHI,RK,GAMMAD,C,E50,E100) 

Input 

1.  Angle  of  internal  friction  (REAL,*) 

2.  Soil  modulus  (REAL,*) 

3.  Effective  unit  weight  of  the  soil  (REAL,*) 

4.  Undrained  shear  strength  (REAL,*) 

5.  Major  principal  strain  @ 50  % maximum  deviator  stress 
in  a UU  triaxial  compression  test  (REAL,*) 

6.  Major  principal  strain  @ failure  in  a UU  triaxial 
compression  test  (REAL,*) 

(NOTE:  EACH  LINE  CORRESPONDS  TO  EACH  OF  17  NODES  OF  A PILE 

MEMBER) 

LINE  #27: (27+NPILE)  (Total  of  NPILE  lines,  each  for  one  pile 

PGEOX,  PGEOY) 

Input 

1.  X coordinate  of  pile 

2.  Y coordinate  of  pile 

LINE  # (27+NPILE) : (27+NPILE+l)  (NPS) 

Input 

None  for  PROFILE  version  and 


^^’Note.  For  this  value,  input 

(a)  modulus  of  lateral  subgrade  reaction  (lb/ in  or 
N/m  ) for  KSOIL=2 

(b)  the  value  of  Es  (lb/ in  or  N/m^)^  for  KSOIL=0 

(c)  the  slope  (lb/ in  or  N/m^)  of  Es  Vs  Depth  curve 
for  KS0IL=1 
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NPA  pile  symmetry  nvimbers  for  LU  version  (The 
asymmetric  piles  must  be  defined  a priori  to  invoke 
symmetry  option  in  LU  version.) 

LINE  #(27+NPILE+l) : (27+NPILE+2)  (KDZ,KDX,KDY,KBX,KBY) 
Input 

1.  0 for  force  boundary  condition  for  pile  top 
displacements  in  Z direction 

1 for  displacement  boundary  condition  for  pile  top 
displacements  in  Z direction 

2 . 0 for  force  boundary  condition  for  pile  top 
displacements  in  X direction 

1 for  displacement  boundary  condition  for  pile  top 
displacements  in  X direction 

3.  0 for  force  boundary  condition  for  pile  top 
displacements  in  Y direction 

1 for  displacement  boundary  condition  for  pile  top 
displacements  in  Y direction 

4 . 0 for  force  boundary  condition  for  pile  top 
bending  moment  about  X axis 

1 for  displacement  boundary  condition  pile  top 
bending  moment  about  X axis 

5.  0 for  force  boundary  condition  for  pile  top 
bending  moment  about  Y axis 

1 for  displacement  boundary  condition  pile  top 
bending  moment  about  Y axis 

LINE  #(27+NPILE+l) : (27+NPILE+2+NPILE)  (Total  NPILE  lines, 
one  for  each  pile) 
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Input 

1.  Force  in  Z direction  at  pile  top  for  KDZ  = 0 
Displacement  in  Z direction  at  pile  top  for  KDZ  = 1 

2 . Force  in  Z direction  at  pile  top  for  KDX  = 0 
Displacement  in  X direction  at  pile  top  for  KDX  = 1 

3 . Force  in  Z direction  at  pile  top  for  KDY  = 0 
Displacement  in  Y direction  at  pile  top  for  KDY  = 1 

4.  Bending  moment  about  X axis  at  pile  top  for  KBX  = 0 
Rotation  about  X axis  at  pile  top  for  KBX  = l 

5.  Bending  moment  about  Y axis  at  pile  top  for  KBY  = 0 
Rotation  about  Y axis  at  pile  top  for  KBY  = 1 

LINE  #(27+NPILE+l) : (27+NPILE+2+NPILE+1)  (NDINC) 

Input 

1.  Number  of  displacement/ force  increments 


APPENDIX  C 

FORTRAN  CODE  OF  PROGRAM  LPG-VERSION  1 (PROFILE) 


C MAIN  PROGRAM  - LPG  VERSION  1( PROFILE) 

C - PROGRAMMED  BY  SHANMUGRAJ  SUBRAMANIAN 

C - MAY  1992 

Qit  it  it  icic  it  icicic  it  icit  it  icit  it  it  fc  itit  it  it  it  icicit  icit  icicit  it  -kit  it  icit  ic  fc  ic  icicit  iciticic  ic  it  icit  ir  it  it  icicic 

C THIS  PRCXJRAM  CALCULATES  THE  LOAD-DEFLECTION  BEHAVIOR 

C OF  A PILE  GROUP  SUBJECTED  TO  LATERAL  LOADS  USING  FEM 

C TECHNIQUE 

C 

Qit  it  it  it  it  it  it  k it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

C - CHANGE  THE  FOLLOWING  LINES  TO  ALTER  THE  SIZE  AND 

C PRECISION  OF  COMPUTER  ANALYSIS  OF  THE  PILE  GROUP 

C 

PARAMETER ( MTOT  = 550000, 

IPR  = 2 ) 

Q it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

C DEACTIVATE  THE  FOLLOWING  LINES  FOR  SINGLE  PRECISION 

C CALCULATIONS 

DOUBLE  PRECISION  TPL,E,RINER, AREA,DIA,X,ELENP,GM,RNU, 
+TOLER, STEP , ERRDIS , ERRMAX , GSE , CL , TSTIF 

Qk  it  it  it  it  it  it  it  it  it  it  it  it  k it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

CHARACTER*70  NAME, UNITS 

COMMON /PILE/TPL,E,RINER, AREA ,DIA,X,ELENP, KCYC , 
+KSOIL,GSE,CL 
COMMON/SOIL/GM, RNU 
COMMON/OUTPUT/NUOl , NU02 
COMMON/POINT/MFIRST , MLAST , IPRCN 

COMMON / T I T / NP I LE , MAX I TN , TOLER , ND I NC , TST I F , KFLG , UN I T S 
COMMON/BIG/A(MTOT) 

DATA  ZERO/0.0/ 

NUI=7 

NU01=8 

NU02=9 

NUO3=10 

IPRCN=IPR 

MFIRST=1 

MLAST=MTOT 

CL=ZERO 

CALL  0PEN{NUI,NU01,NU02,NU03) 

WRITE{*,*)'  READING  DATA' 

READ ( NUI , 2 ) NAME 
READ (NUI, 2) UNITS 
READ (NUI,*) KFLG 

READ ( NUI , * ) TPL , E , RINER , AREA , D I A 

READ ( NUI ,*) X , KCYC 

READ (NUI, *)NPILE 

READ ( NUI ,*) MAXITN , TOLER 

READ ( NUI ,*) KSOIL , GM , RNU 

READ (NUI,*) TSTIF 

NNP=17*NPILE 

NNPS=16*NPILE 

IF(X.EQ.ZERO)NNPS=17*NPILE 

NEQ=5*NNP 
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NPEL=16*NPILE 
NFLXS=32*NPILE 
IF(X.EQ.ZERO)NFLXS=34*NPILE 
WRITE ( NUOl ,21) NAME 
WRITE(NU01,3) 

CALL  PRNTIT(NUOl) 

MPPY=MPOINT (17,6, IPR) 

CALL  MREAD(A(MPPY) ,17,6,NUI) 

IF ( KSOIL . EQ . 0 ) THEN 
ASSIGN  51  TO  NFMT 
ELSE 

ASSIGN  5 TO  NFMT 
END  IF 

NAME='Py  CURVES  DATA:' 

WRITE ( NUOl , NFMT ) NAME 

CALL  MPRINT(A(MPPY) ,17,6,NU01,17,6,3) 

MPPGEO=MPOINT ( NPILE , 2 , IPR ) 

CALL  MREAD(A(MPPGEO) ,NPILE,2,NUI) 

NAME= ' PILE  GEOMETRY : ' 

WRITE ( NUOl , 6 ) NAME 

CALL  MPRINT(A(MPPGEO) , NPILE, 2 , NUOl, NPILE, 2 , 3 ) 
MPPCOO=MPOINT ( NNP , 3 , I PR ) 

CALL  PILCOR ( A ( MPPCOO ) , A ( MPPGEO ) , NPILE , NNP ) 

READ (NUI , * ) KTZ , KTX, KTY , KRX, KRY 
WRITE ( NUOl , 19  8 ) KTZ , KTX , KTY , KRX , KRY 
MPCDIS=MPOINT (NPILE ,5,2) 

CALL  MREAD(A(MPCDIS) ,NPILE,5,NUI) 

WRITE(NU01,221) 

CALL  MPRINT(A(MPCDIS) ,NPILE,5,NU01,NPILE,5,3) 

READ (NUI, *)NDINC 
WRITE ( NUOl , 2 2 2 ) ND INC 
NFT= ( NFLXS + 1 ) * NFLXS / 2 
MPFPSP=MPOINT(NFT,0,IPR) 

MPNAF=MPOINT ( NFLXS ,0,1) 

CALL  FLEXNA ( A ( MPNAF ) , NFLXS ) 

CALL  FLEX ( A ( MPPCOO ) , A ( MPFPSP ) , A ( MPNAF ) , NNP , NFLXS , NFT ) 
CALL  MATW (A (MPFPSP ), NFT, 1,NU03) 

NLDOF=NFLXS 
MPLM=MPOINT ( NFLXS ,0,1) 

CALL  LMPSP ( A ( MPLM ) , NEQ , NLDOF ) 

MPNAG=MPOINT ( NEQ ,0,1) 

CALL  GLBNA ( A ( MPLM ) , A ( MPNAG ) , NGT , NFLXS , NEQ , NP I LE ) 
MPGLK=MPOINT(NGT,0, IPR) 

CALL  NULVEC ( A ( MPGLK ) , NGT ) 

MPEKPT=MPOINT (10,10, IPR) 

MPEKPB=MPOINT (10,10, IPR) 

MPLMl=MPOINT (10,0,1) 

NLDOF=10 

CALL  ELSTFP ( A ( MPEKPB ) , NLDOF , 1 ) 

IF(X.EQ.ZERO)THEN 

CALL  COPYM ( A ( MPEKPB ) , A ( MPEKPT ) , NLDOF , NLDOF ) 

ELSE 

CALL  ELSTFP ( A ( MPEKPT ) , NLDOF , 0 ) 

END  IF 

NNL=(NPILE-1)*17+1 
DO  30  NSUM=1,NNL, 17 
DO  30  NN=NSUM, (NSUM+15) 

CALL  LMPEL(A(MPLM1) ,NN,NLDOF) 

IF(MOD(NN,17) .EQ.1)THEN 

CALL  ADDSTFl ( A ( MPGLK ) , A ( MPEKPT ) , A ( MPNAG ) , A ( MPLMl ) 
+NGT , NLDOF , NEQ ) 

ELSE 

CALL  ADDSTFl ( A ( MPGLK ) , A ( MPEKPB ) , A ( MPNAG ) , A ( MPLMl ) 
+NGT , NLDOF , NEQ ) 
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END  IF 

30  CONTINUE 

MPIFOR=MPOINT ( 5*NPILE ,0,1) 

MPFOR=MPOINT ( 5*NPILE , 0 , IPR) 

CALL  BOUND (A(MPIFOR) ,A(MPFOR) ,A(MPCDIS) ,A(MPGLK) , 
+A(MPNAG) ,NGT,NEQ,NPILE,KTZ,KTX,KTY,KRX,KRY) 

CALL  TIP(A(MPGLK) , A(MPNAG) , TSTIF, NGT, NEQ) 
WRITE(NU01,3) 

CALL  MATW ( A ( MPGLK ) , NGT , 1 , NU03 ) 

MPSPSP=MPOINT (NFLXS , NFLXS , IPR) 


WRITE(*,*)'  ::::::MAX  # OF  INCREMENT(S)  = ',NDINC 
WRITE(*,*)'  ::::::MAX  # OF  ITERATION(S)  = ',MAXITN 


CALL  INISTF(A(MPFPSP) ,A(MPPY) , A(MPPCOO) ,A(MPSPSP) , 

+A ( MPNAF ) , NNP , NFLXS , NFT ) 

NLDOF=NFLXS 

CALL  ADDSTF1(A(MPGLK) ,A(MPSPSP) ,A(MPNAG) ,A(MPLM) , 

+NGT , NLDOF , NEQ ) 

MPEXTF=MPOINT ( NEQ , 0 , IPR ) 

MP I NTF=MPOINT ( NEQ , 0 , I PR ) 

MPDISP=MPOINT (NEQ, 0 , IPR) 

MPOD I S=MPOINT ( NEQ , 0 , IPR ) 

MPPSPF=MPOINT (NFLXS , 0, IPR) 

MPPF=MPOINT ( NPEL , 10 , IPR ) 

MPSPRF=MPOINT ( NFLXS , 0 , IPR ) 

MPSF=MPOINT ( NPILE , 5 , IPR ) 

WRITE (*, 78 )MTOT, (MFIRST-1), (MTOT-MFIRST+1 ) 
WRITE(NU01,78)MT0T, (MFIRST-1) , (MTOT-MFIRST+1) 

WRITE ( NUOl , 3 ) 

WRITE ( NUOl , 61 ) GSE 
IF(KFLG.EQ.0)THEN 

NAME=' COORDINATES  OF  PILE  NODES:' 

WRITE ( NUOl , 7 ) NAME 

CALL  MPRINT(A(MPPCOO) ,NNP, 3 ,NU01, 17 , 3 , 3 ) 

END  IF 

DO  50  IN=1,NDINC 

WRITE (*,*)' INCREMENT#  = ' , IN 

STEP=DBLE ( IN ) 

CALL  NULVEC ( A ( MPEXTF ) , NEQ ) 

CALL  NULVEC(A(MPODIS) ,NEQ) 

CALL  EXTFOR(STEP,A(MPIFOR) ,A(MPFOR) ,A(MPEXTF) , 
+NPILE,NEQ) 

ICON=0 

DO  60  IT=1,MAXITN 

WRITE (*,*)'  ITERATION  # = ' , IT 

CALL  COPYM ( A ( MPEXTF ) ,A(MPDISP) ,NEQ,1) 

WRITE (*,*)'  SOLVING  THE  SYSTEM  EQUATIONS ' 

CALL  SUBSOL ( A ( MPGLK ) ,A(MPDISP) ,A(MPNAG) ,NEQ, NEQ, 1, 4 ) 
ERRDIS=ERRMM(A(MPODIS)  ,A(MPDISP)  ,NEQ) 

IF ( IT. NE . 1 .AND . ERRDIS . LE . TOLER) ICON=l 
IF ( ICON. EQ.l) THEN 
REWIND  NU03 

CALL  MATR ( A ( MPFPSP ) , NFT , 1 , NU03 ) 

CALL  MATR ( A ( MPGLK ) , NGT , 1 , NU03 ) 

CALL  SECSTF(A(MPDISP) ,A(MPFPSP) ,A(MPSPSP) , 
+A(MPPY) ,A(MPNAF) ,A(MPPCOO) ,A(MPLM) ,A(MPSPRF) ,NNP,NNPS, 
+NFLXS , NEQ , NFT ) 

CALL  ADDSTF1(A(MPGLK) ,A(MPSPSP) ,A(MPNAG) ,A(MPLM) , 
+NGT , NLDOF , NEQ ) 

CALL  OBFOR ( A ( MPGLK ) ,A(MPDISP) ,A(MPINTF) , 

+A ( MPEXTF ) , A ( MPNAG ) , NEQ , NGT ) 

WRITE (NUOl, 75) 

WRITE (NUOl, 76) IN, IT, ERRDIS 
WRITE (NUOl, 75) 

CALL  PRINTF(A(MPDISP) ,A(MPLM) ,A(MPPY) ,A(MPPCOO) , 
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60 

50 

2 

21 

3 


5 


51 


6 

61 


7 

76 


77 


78 


75 


4-A(MPINTF)  ,A(MPSPSP)  ,A(MPEKPT)  ,A(MPEKPB)  ,A(MPPSPF)  , 
+A(MPPF) ,A(MPSPRF) ,A(MPSF) ,NPEL,NEQ,NNP,NNPS,NPILE, 
+NFLXS , KFLG ) 

GO  TO  50 


ELSE 

IF ( IT . EQ . MAXITN ) THEN 
WRITE (NUOl, 75) 

WRITE ( * , 77 ) IN, IT , ERRDIS 
WRITE(NU01,77)IN,IT,ERRDIS 
WRITE (NUOl, 75) 

STOP 

ELSE 

REWIND  NU03 

CALL  MATR(A(MPFPSP) ,NFT,1,NU03) 

CALL  MATR ( A ( MPGLK ) , NGT , 1 , NU03 ) 

CALL  SECSTF(A(MPDISP) ,A(MPFPSP) ,A(MPSPSP) , 
+A(MPPY) ,A(MPNAF) ,A(MPPCOO) ,A(MPLM) ,A(MPSPRF) , 

+NNP , NNPS , NFLXS , NEQ , NFT ) 

CALL  ADDSTF1(A(MPGLK) ,A(MPSPSP) ,A(MPNAG) , 
+A ( MPLM ) , NGT , NLDOF , NEQ ) 

CALL  COPYM(A(MPDISP) , A(MPODIS ) , NEQ, 1 ) 

END  IF 


END  IF 
CONTINUE 
CONTINUE 
FORMAT ( A ) 
FORMAT (IX, A) 
FORMAT ( 


FORMAT(/,lX,A,/,T18, 'PHI' ,T30, 'K' ,T35, 'GAMMA' ' , 

+T49, 'CU' ,T58, 'E50' ,T67, 'ElOO' , /,T16, ' (DEG) ' , 

+T24,  ' (F/L''3)  ' ,T34,  ' (F/L''3)  ' ,T44, 

+'(F/L-2) ',T56, ' (L/L) ',T66, ' (L/L) '/) 
FORMAT(/,lX,A,/,T18, 'PHI',T30, 'K',T35, 

+ 'GAMMA' ' ,T49, 'CU' ,T58, 'E50' ,T67, 'ElOO ' , / , T16, 

+ ' (DEG)  ' ,T24,  ' (F/L''2)  ' ,T34,  ' (F/L^3)  ' ,T44, 

+' (F/L-2) ',T56, ' (L/L) ',T66, ' (L/L) '/) 
FORMAT(/,lX,A,/,T6, 'PILE#' ,T20, 'X' ,T30, 'Y' ) 

FORMAT ( / , 

+T22,'::::  OUTPUT  :;;;',//, 

+T5, 'GROUND  SURFACE  ELEVATION  = ' ,E10 . 3 , IX, ' (L) ' ) 
FORMAT(/,lX,A,/,T7, 'PILE',T20, 'X',T30, 'Y',T40, 'Z',/, 
+T6, 'NODE#' ) 

FORMAT (T 5, 'THE  SOLUTION  CONVERGED  FOR:',/, 

+T5, 'DISPLACEMENT/FORCE  INCREMENT  # = ',110,/, 

+T5,'  ITERATION#  = ',110,/, 

+T5,'MAX  DEFLECTION  ERROR  = ',E10.3,1X, 


+'(L)',/) 

FORMAT ( 

+T5,'THE  SOLUTION  COULD  NOT  CONVERGE 
+T5, 'DISPLACEMENT/FORCE  INCREMENT  # 
+T5,'MAX  ITERATION  # 

+T5,'MAX  DEFLECTION  ERROR 
+1X, ' (L) ') 

FORMAT ( 

+1X, 'TOTAL  # OF  MEMORY  UNITS 
+1X,'#  OF  MEMORY  UNITS  USED  BY  LPG  = 
+1X, '#  OF  MEMORY  UNITS  FREE 
FORMAT ( / , 

+1X,  ' 

+ , ' ' , / , 1X7^ 

+ , ’ 

+ / ' ' ) 


FOR: ' ,/, 

= MIO,/, 
= ',110,/, 
= ' ,E10.3, 


MIO,/, 

MIO,/, 

MIO,/) 


/ 


f 
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221  FORMAT  ( IX , ' CAP  LOADS  /D I SPLACEMENTS 

+T6, 'PILE#' ,T14, 'FZZ/DZZ' ,T24, 'FXX/DXX' ,T34, 'FYY/DYY' , 
+T44, 'MXX/RXX' ,T54, 'MYY/RYY' ) 

222  FORMAT(lX, '#  OF  LOAD  INCREMENT(S)  = ',110,/) 

198  FORMAT ( IX , ' BOUNDARY  CONDITIONS  CODE : ' , / , 


+1X,  ' 

FOR 

TRANSLATION  IN 

Z 

DIRECTION  = 

^ / 12 , / , 

+1X,  ' 

X 

= 

^ / 12 , / f 

+1X,  ' 

Y 

— 

r 12 , / / 

+ 1X,  ' 

FOR 

ROTATION  ABOUT 

X 

AXIS 

' ,12,1 

+1X,  ' 

Y 

AXIS 

M2f/) 

END 

C 

SUBROUTINE  ADDSTFl ( GLK , S , NAG , LM , NGT , ND , NEQ ) 

C 

C THIS  ROUTINE  ADDS  THE  ELEMENT  STIFFNESS  MATRIX  TO  THE 

C GLBOBAL  STIFFNESS  MATRIX 

it  "k  it  it -k  it  it  it  it  it  it  it  it  it  it  it  "k  it  it  it  it  it  "k  it  it  it  "k  it  "k  it  it  it  "k  it  it  it -k  it  it  "k  it  it  if  i( it  it  it  "k  "k  "k  it  it  it  it  it  it  "k 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

^kkkkititititititititititititititititititititititititititititititititititititititititititititititititkititititk 

DIMENSION  GLK(NGT) , NAG (NEQ) , S (ND , ND ) ,LM(ND) 

DO  200  1=1, ND 
N=LM ( I ) 

DO  100  J=I,ND 
M=LM( J) 

SS=S(I, J) 

IF(M.GT.N)THEN 

LOC=NAG(M)+N-M 

ELSE 

LOC=NAG ( N ) +M-N 
END  IF 

GLK ( LOC ) =GLK ( LOC ) +SS 
100  CONTINUE 

200  CONTINUE 

RETURN 
END 

C 

SUBROUT I NE  BOUND ( I FOR , FOR , CD I S , STRK , NA , NGT , NEQ , NP I LE , 
+KTZ , KTX , KTY , KRX , KRY ) 

C 

C THIS  ROUTINE  INCORPORATES  BOUNDARY  CONDITIONS  TO  THE 

C TOP  OF  PILES  >KTZ,KTX,KTY,KRX,KRY  = 0 MEANS  FORCE 

C BOUNDARY  CONDITION  AND  = 1 MEANS  DISPLACEMENT  BOUNDARY 

C CONDITION 

^kkkititititititititititititititititititititititititititititititititititititititkitkitkkitititititititititkitk 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q*  ********  ir  **************  -k  -k  ******  -k  * -k  * -k  ********  -k  ************  * 

COMMON/POINT/MFIRST,MLAST, IPRCN 
DIMENSION  STRK(NGT) ,NA(NEQ) , IFOR( 5*NPILE ) , 
+FOR(5*NPILE) ,CDIS(NPILE,5) 

EPB=0.D0 
DO  5 1=1, NGT 
DUM=STRK(I) 

IF ( EPB . LT . DUM ) EPB=DUM 
5 CONTINUE 

EPB=1.D3*EPB 

K=0 

DO  10  1=1, NEQ 
IF (MOD (I, 85) .EQ.1)THEN 
K=K+1 

K1=(K-1)*5+1 
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10 


c 


IFOR(Kl)=I 

IP(KTZ.EQ.0)THEN 

F0R(K1)=CDIS(K,1) 

ELSE 

IPOI=NA(I) 

STRK ( IPOI ) =STRK ( IPOI ) +EPB 
FOR(Kl)=STRK(IPOI)*CDIS(K,l) 
END  IF 

Kl=(K-l)*5+2 
IFOR (Kl) =1+1 
IF(KTX.EQ.O)THEN 

FOR(Kl)=CDIS(K,2) 

ELSE 

IPOI=NA(I+l) 

STRK ( IPOI ) =STRK ( IPOI ) +EPB 
FOR(Kl)=STRK(IPOI)*CDIS(K,2) 
END  IF 

Kl=(K-l)*5+3 

IFOR(Kl)=I+2 

IF(KTY.EQ.0)THEN 

FOR(Kl)=CDIS(K,3) 

ELSE 

IPOI=NA(I+2) 

STRK ( IPOI ) =STRK ( IPOI ) +EPB 
FOR (Kl ) =STRK( IPOI ) *CDIS (K/3 ) 
END  IF 

Kl=(K-l)*5+4 

IFOR(Kl)=I+3 

IF(KRX.EQ.0)THEN 

FOR(Kl)=CDIS(K,4) 

ELSE 

IPOI=NA(I+3) 

STRK ( IPOI ) =STRK ( IPOI ) +EPB 
FOR(Kl ) =STRK( IPOI ) *CDIS (K, 4 ) 
END  IF 

Kl=(K-l)*5+5 

IFOR(Kl)=I+4 

IF(KRY.EQ.0)THEN 

FOR(Kl)=CDIS(K,5) 

ELSE 

IPOI=NA(I+4) 

STRK ( IPOI ) =STRK ( IPOI ) +EPB 
FOR ( Kl ) =STRK( IPOI ) *CDIS (K, 5 ) 
END  IF 
END  IF 
CONTINUE 
RETURN 
END 


SUBROUTINE  DOTP ( A, B, S , N) 


THIS  ROUTINE  CALCULATES  THE  DOT  PRODUCT  OF  TWO  VECTORS 
'A'  AND  'B' 

DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 
CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  A(N),B(N) 

S=0.0D0 
DO  100  1=1, N 
100  S=S+A(I)*B(I) 

RETURN 

END 
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c 

SUBROUTINE  EXTFOR ( STEP , IFOR, FOR, EXTF , NPILE , NEQ ) 

C 

C THIS  ROUTINE  CALCULATES  THE  EXTERNAL  FORCES  APPLIED 

C TO  THE  PILE  GROUP  SYSTEM 

C 

rk  it  fc  ic  it  it  it  if  it  it  it  ic  it  it  fc  rk  it  it  ic  it  "k  It  ie  ie  it  1c  it  it  It  it  it  ic  ic  ic  "k  it  ic  it  it  it  rk  ic  "k  rkif  fc  icit  ick  ic  "k  icit  icicit  ic 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
^★★★★★★★★★★***************************************^********* 
DIMENSION  IFOR(5*NPILE) ,FOR(5*NPILE) ,EXTF(NEQ) 
IMAX=5*NPILE 
DO  10  I=1,IMAX 
II=IFOR(I) 

EXTF ( II ) =FOR( I ) *STEP 
10  CONTINUE 

RETURN 
END 

C 

SUBROUTINE  FLEX ( PCOOR, FLPSP , NAF , NNP , NFLXS , NFT ) 

C 

C THIS  ROUTINE  CALCULTES  PILE-SOIL-PILE  FLEXIBILITY  BY 

C MINDLIN  FLEXIBILITY  EQNS  FOR  POINT  FORCES  APPLIED  AT 

C A POINT  INSIDE  AN  ELASTIC  CONTINUUM  IN  X AND  Y 

C DIRECTIONS 

DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 
CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qk  k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

COMMON/SOIL/GM, RNU 

COMMON/PILE /TPL , E , RINER , AREA , D I A , X , ELENP , KCYC , 
+KSOIL,GSE,CL 

DIMENSION  PCOOR(NNP,3) ,FLPSP(NFT) , NAF (NFLXS) 

DATA  PI , ZERO , ONE , TWO , THREE , FOUR, RNl 6 , EN5 
+/3. 1415927, 0.0, 1.0, 2. 0,3. 0,4. 0,16. 0,0. 00001/ 

Cl=ONE/ (RN16*PI*GM* (ONE-RNU) ) 

C2=THREE-FOUR*RNU 

C3=FOUR* (ONE-RNU) * (ONE-TWO*RNU) 

NJ=0 

DO  10  J=1,NNP 

IF(X.NE.ZERO.AND.MOD( J, 17) .EQ. l)GO  TO  10 
NJ=NJ+1 

NJ1=(NJ-1)*2+1 

NJ2=(NJ-l)*2+2 

NI=0 

DO  20  1=1, NNP 

IF(X.NE.ZERO.AND.MOD(I,17) .EQ.l)GO  TO  20 
NI=NI+1 

NI1=(NI-1)*2+1 
NI2=(NI-l)*2+2 
IF(NIl.GT.NJl)GO  TO  20 
DELX=PCOOR (1,1) -PCOOR ( J , 1 ) 

DELY=PCOOR (1,2) -PCOOR ( J , 2 ) 

XSQ=DELX*DELX 

YSQ=DELY*DELY 

RSQ=XSQ+YSQ 

IF ( RSQ . LT . EN5 ) THEN 

IF(NJ1.GE.NI1)THEN 

IPT=NAF ( N J1 ) -N Jl+NI 1 
FLPSP ( I PT)= ZERO 


END  IF 
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IF(NJ1.GE.NI2)THEN 

IPT=NAF (NJl ) -NJ1+NI2 
FLPSP(IPT)=ZERO 

END  IF 

IF(NJ2.GE.NI1)THEN 

IPT=NAF (NJ2 ) -NJ2+NI1 
FLPSP(IPT)=ZERO 

END  IF 

IF (NJ2 . GE . NI2 ) THEN 

IPT=NAF ( NJ2 ) -NJ2+NI2 
FLPSP(IPT)=ZERO 

ENDIF 
GO  TO  20 
ENDIF 

Z=PCOOR (1,3) -GSE 
C=PCOOR ( J , 3 ) -GSE 
R1=DSQRT ( RSQ+ ( Z-C ) * *2 ) 

R2  =DSQRT ( RSQ+ ( Z +C ) * * 2 ) 

Dl=ONE/Rl 

D1CU=D1*D1*D1 

D2=ONE/R2 

D2SQ=D2*D2 

D2CU=D2*D2SQ 

DUM=ONE/ (R2+Z+C) 

F1=C2*D1+D2 

F2=C2*D2CU+D1CU 

F3=TWO*C*Z*D2CU 

F4=THREE*D2SQ 

F5=C3*DUM 

F6=D2*DUM 

F7=(F1+F3+F5)*C1 

F8=(F2-F3*F4-F5*F6)*C1 

IF ( NJl . GE . NI 1 ) THEN 

I PT=NAF ( N J1 ) -N Jl+NI 1 
FLPSP ( IPT ) =F7+F8*XSQ 
ENDIF 

IF ( NJl . GE . NI2 ) THEN 

IPT=NAF ( NJl ) -NJ1+NI2 
FLPSP ( IPT ) =DELX*DELY *F8 
ENDIF 

IF(NJ2.GE.NI1)THEN 

I PT=NAF ( N J2 ) -N J2 +N I 1 
FLPSP ( IPT ) =DELX*DELY*F8 
ENDIF 

IF (NJ2 . GE . NI2 ) THEN 

IPT=NAF ( NJ2 ) -NJ2+NI2 
FLPSP(IPT)=F7+F8*YSQ 
ENDIF 

20  CONTINUE 

10  CONTINUE 

RETURN 
END 

C 

SUBROUT I NE  FLEXNA ( NAF , NFLXS ) 

THIS  ROUTINE  CALCULATES  THE  NA  ARRAY  FOR  THE 
SOIL  FLEXIBILITY  MATRIX 

DIMENSION  NAF (NFLXS) 

NAF(1)=1 
DO  10  1=2, NFLXS 
10  NAF(I)=NAF(I-1)+I 

RETURN 
END 
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C 

SUBROUTINE  GLBNA ( LMPSP , NAG , NGT , NFLXS , NEQ , NPILE ) 

C 

C THIS  ROUTINE  CALCULATES  THE  GLOBAL  NA  VECTOR 

C 

DIMENSION  LMPSP ( NFLXS ), NAG (NEQ) 

KOUNT=0 

DO  100  I=1,NPILE 
DO  90  J=l,17 

DO  80  K=l,5 

KOUNT=KOUNT-l-l 
IF( J.EQ.1)THEN 
NAG(KOUNT)=l 

ELSE 

IF ( K. EQ. 1 ) KNTMIN=KOUNT-5 
NAG ( KOUNT ) =KNTMIN 
END  IF 

80  CONTINUE 

90  CONTINUE 

100  CONTINUE 

DO  300  1=1, NFLXS 
DO  200  J= I, NFLXS 
IF(LMPSP(I)  .LT.LMPSP(J)  ).THEN 

IF(NAG(LMPSP(J) ) .GT.LMPSP(I) )NAG(LMPSP{ J) )= 
+LMPSP(I) 

ELSE 

IF(NAG(LMPSP(I) ) . GT • LMPSP (J) ) NAG (LMPSP ( I ) )= 

+LMPSP( J) 

END  IF 

200  CONTINUE 
300  CONTINUE 
NAG ( 1 ) =1 
DO  400  1=2, NEQ 

400  NAG ( I ) =NAG ( I-l ) -NAG ( I ) +1+1 

NGT=NAG(NEQ) 

RETURN 

END 

C 

SUBROUTINE  INISTF ( FLPSP , PY , PCOOR, STPSP , NAF , NNP , 

+NFLXS , NFT ) 

C 

C THIS  ROUTINES  CALCULATES  THE  INITIAL  TANGENT  STIFFNESS 

C OF  LINEAR  SOIL  SPRINGS  OR  NON-LINEAR  SOIL  SPRINGS 

C (PROPOSED  BY  O'NEILL  ET  AL. ) 

C 

Qif  it  it  i(  ic  ic  if  ic  it  it  icicick  it  i(  icicicicic  icic  ic  i(ic  it  it  icit  "k  icicicic  -k  ick  icicic  -k  "k  icit  ic  ic  iticicicicicicic  ic  -k  ic 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

k k it  k it  k k it  it  k k it  it  k k k k k k k k k k k k k k it  k k k k k k k k k it  k k k k it  it  k k k k k it  k k k k k k k 

DIMENSION  FLPSP( NFT ) ,PY( 17,6) ,PCOOR(NNP,3) , 

+STPSP ( NFLXS , NFLXS ) , NAF ( NFLXS ) 

COMMON/PILE/TPL, E , RINER, AREA, DIA, X, ELENP , KCYC , 
+KSOIL,GSE,CL 

DATA  ZERO,PT5,ONE/0.0,0.5,1.0/ 

WRITE(*,*)'  FORMING  THE  SOIL  FLEXIBILITY  MATRIX' 
SMALL=1.D60 
DO  50  1=1,17 
IF ( KSOIL . EQ . 0 ) THEN 
RK=PY (1,2) * ELENP 
IF ( GSE . GT . ZERO ) THEN 
IF(I.EQ.1)VAR=1.D60 
I F ( I . GT . 1 . AND . RK . GT . ZERO ) VAR=RK 
ELSE 
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IF ( RK . GT . ZERO ) VAR=RK 
ENDIF 

ELSEIF ( KSOIL . EQ . 1 . OR . PY ( I , 1 ) . NE . ZERO ) THEN 
RK=Py (1,2) *ELENP* ( PCOOR (1,3) -GSE ) 

I F ( GSE . GT . ZERO ) THEN 
IF(I.LE.2)VAR=1.D60 
IF ( I . GT . 2 . AND . RK. GT . ZERO ) VAR=RK 
ELSE 

IF(I.EQ.1)VAR=1.D60 
IF ( I . GT . 1 . AND . RK. GT • ZERO ) VAR=RK 
ENDIF 
ELSE 

RK=ESTABL ( PY ( I , 4 ) ) *ELENP 
IF ( GSE . GT . ZERO ) THEN 
IF(I.EQ.1)VAR=1.D60 
IF ( I . GT . 1 . AND . RK. GT . ZERO) VAR=RK 
ELSE 

IF ( RK. GT . ZERO ) VAR=RK 
ENDIF 
ENDIF 

IF ( VAR . LT . SMALL ) SMALL=VAR 

CONTINUE 

EPB=1.D3/SMALL 

J=16 

IF(X.EQ.ZERO) J=17 
NI=0 

DO  10  1=1, NNP 

IF(X.NE.ZERO.AND.MOD(I,17) .EQ.l)GO  TO  10 
NI=NI+1 

NI1=(NI-1)*2+1 

NI2=(NI-l)*2+2 

IPT1=NAF(NI1) 

IPT2=NAF(NI2) 

NMOD=MOD  ( NI , J ) 

IF(NMOD.EQ.l.OR.NMOD.EQ.0)THEN 

ELEN=ELENP*PT5 

ELSE 

ELEN=ELENP 

ENDIF 

Z=PCOOR(I,3)-GSE 

IMOD=MOD(I,17) 

IF ( IMOD . EQ. 0 ) IMOD=17 
RK=PY ( IMOD , 2 ) 

PHI=PY(IMOD,l) 

IF ( KSOIL . EQ . 0 ) THEN 

IF(RK.EQ.ZERO)THEN 

FLPSP ( IPTl ) =FLPSP ( IPTl ) +EPB 
FLPSP ( IPT2 ) =FLPSP ( IPT2 ) +EPB 

ELSE 

FLPSP ( IPTl ) =FLPSP ( IPTl ) +ONE/ ( RK*ELEN ) 
FLPSP ( IPT2 ) =FLPSP ( IPT2 ) +ONE/ (RK*ELEN) 
ENDIF 

ELSEIF ( KSOIL . EQ . 1 . OR . PHI . NE . ZERO ) THEN 
IF(RK.EQ.ZERO.OR.Z.EQ.ZERO)THEN 
FLPSP ( IPTl ) =FLPSP ( IPTl ) +EPB 
FLPSP ( IPT2 ) =FLPSP ( IPT2 ) +EPB 

ELSE 

FLPSP ( IPTl ) =FLPSP ( IPTl ) +ONE / ( RK*Z  *ELEN ) 
FLPSP ( IPT2 ) =FLPSP ( IPT2 ) +ONE / ( RK*  Z *ELEN ) 
ENDIF 

ELSE 

C=PY ( IMOD , 4 ) 

ES=ESTABL ( C ) 

FLPSP ( IPTl ) =FLPSP ( IPTl ) +ONE/ (ES*ELEN) 
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FLPSP ( IPT2 ) =FLPSP ( IPT2 ) +ONE/ ( ES*ELEN ) 

ENDIF 

10  CONTINUE 

WRITE INVERTING  THE  SOIL  FLEXIBILITY  MATRIX' 
CALL  INVERT ( FLPSP , STPSP , NAF , NFLXS , NFT ) 

RETURN 

END 

C 

SUBROUTINE  INVERT ( FLEX , STIF , NAF , NEQ , NFT ) 

C 

C THIS  ROUTINE  CALCULATES  THE  INVERSE  OF  THE  MATRIX 

C 'FLEX'  AND  STORES  IT  IN  THE  MATRIX  'STIF' 

C 

Qfc  it  fc  ic  ic  ic  fc  ic  fc  ic  It  ic  it  rk  It  it  It  It  fc  icit  icic -k  it  ic  it  Icicir  it  ic  if  icfc  it  it  fc  icit  it  icif  icic  ic -kit  ic -k  fcicicic  icit  icic 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H^O-Z) 

Qk  k k it  k k k k k k k k k k k k k k k k k k k it  k k k k k k k k it  k k k k k k k it  k k k k k k k k k k k k k k k ft  k 

DIMENSION  FLEX { NFT ), STIF (NEQ, NEQ) ,NAF(NEQ) 

DO  10  J=1,NEQ 
DO  10  1=1, NEQ 
IF(I.EQ. J)THEN 

STIF(I, J)=1.D0 

ELSE 

STIF(I, J)=0.D0 
ENDIF 

10  CONTINUE 

CALL  SUBSOL ( FLEX , STIF , NAF , NEQ , NEQ , NEQ , 4 ) 

RETURN 

END 

C 

SUBROUTINE  MULTP ( STIF , NA , FORC , DI SP , NEQ ) 

Qk k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


C MATRIX  MULTIPLICATION  K * VECTOR  

C K IS  A PROFILE  STIFFNESS  

C ACCOUNTS  FOR  PROFILE  FORM  OF  K MATRIX  

C MULTIPLIES  1)  EACH  COLUMN  OF  K 

C 2)  THEN  RE-USES  COLUMN  FOR  CURRENT  ROW,  UP 

C TO  DIAGONAL 

C 

C WHERE  STIF  IS  THE  PROFILE  STIFFNESS  MATRIX  

C NA  IS  THE  POINTER  FOR  DIAG  OF  STIFFNESS 

C DISP  IS  THE  VECTOR  OF  DISPLACEMENTS 

C 

C FOR  IS  THE  RESULTING  FORCE  VECTOR 


Qkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

IMPLICIT  REAL*8  (A-H,0-Z) 

DIMENSION  STIF(NEQ) , NA(NEQ) , FORC (NEQ) ,DISP(NEQ) 

DO  250  JJ=1,NEQ 
250  FORC ( J J ) =0 . ODO 


C FORM  K*VECTOR  (ONE  COLUMN  OF  K AT  A TIME)  

IS=1 

DO  400  L=1,NEQ 
NTERM=NA(L)-IS+1 

C IROW  IS  LOWEST  ROW  FOR  CURRENT  COLUMN  OF  STIFFNESS 

IROW=L-NTERM+l 

C FORM  K* VECTOR  FOR  COLUMN  L TO  JUST  BEFORE  DIAGONAL 

ISS=IS 


VECM=DISP(L) 

IF(IROW.LE.L-l)  THEN 
DO  300  JJ=IROW,L-l 

FORC ( JJ ) =FORC ( J J ) + STIF(ISS)*VECM 
300  ISS=ISS+1 
ENDIF 
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FORM  DIAGONAL  ROW  VALUE  (SYMMETRIC  SO  USE  CURRENT 

COLUMN  

CALL  DOTP(STIF(IS) , DISP ( IROW) , SUM, NTERM) 

FORC ( L ) =FORC ( L ) +SUM 

END  NEXT  COLUMN  LOOP  

400  IS=NA(L)-»-l 
RETURN 
END 

C 

SUBROUTINE  OBFOR ( GLK, DISP , RINTF , EXTF , NAG , NEQ , NGT ) 

C 

C THIS  ROUTINE  CALCULATES  THE  OUT -OF -BALANCE  FORCES  IN 

C THE  PILE  GROUP  SYSTEM 

C 

1c  fc  fc  ic  ic  it  it  it  it  ic  fc  it  it  "k  fc  it  fc  fc  ic  it  It  iic  fc  ic  ic  it  it  ic  it  i(it  it  it  fc  itit  fcit  icit  it  ic  icick  rk  ic  icfc  icir  feicic  fcit  ft  ic 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qit  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

DIMENSION  GLK(NGT) ,DISP(NEQ) , RINTF (NEQ) , EXTF (NEQ) , 
+NAG ( NEQ ) 

DATA  RNONE/-1.DO/ 

CALL  MULTP(GLK, NAG, RINTF, D ISP, NEQ) 

CALL  ADDV( RINTF, EXTF, RNONE, NEQ) 

RETURN 

END 

C 

SUBROUTINE  PRINTF ( DISP , LMPSP , PY , PCOOR, OBF , SPSP , EKPT , 
+EKPB , PSPF , PF , SPRF , SF , NPEL , NEQ , NNP , NNPS , NPILE , NFLXS , 
+KFLG ) 

C 

C THIS  ROUTINE  CALCULATES  AND  PRINTS  THE  ELEMENT  FORCES 

C FOR  ALL  ELEMENT  TYPES  CONSTITUTING  THE  PILE  GROUP 

C SYSTEM 

Qit  it  it  it  it  it  it  it  it  it  k it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  k 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

COMMON/OUTPUT/NUOl , NU02 

COMMON/PILE/TPL , E , RINER, AREA, DIA, X, ELENP , 

+KCYC , KSOIL , GSE , CL 

DIMENSION  DISP(NEQ) ,LMPSP(NFLXS) ,PY (17, 6) , 

+PCOOR ( NNP , 3 ) , OBF ( NEQ ) , SPSP ( NFLXS , NFLXS ) , 

+PSPF ( NFLXS ) , PF ( NPEL , 10 ) , SPRF ( NFLXS ) , 

+LM(10) ,EKPT(10,10) ,EKPB(10,10) ,SF(NPILE,5) 

CHARACTER* 70  NAME 
DATA  ZERO/0.0/ 

REWIND  NU02 
DO  40  K=1,NPEL 
READ(NU02) (LM( I ) , 1=1, 10 ) 

DO  50  1=1,10 
PF(K, I)=ZERO 
DO  50  J=l,10 
J J=LM ( J ) 

IF(MOD(K,16) .EQ.1)THEN 

PF (K, I ) =PF (K, I ) +EKPT ( I , J ) *DISP { JJ ) 

ELSE 

PF(K, I)=PF(K,I)+EKPB(I, J)*DISP( JJ) 

END  IF 

50  CONTINUE 

40  CONTINUE 

DO  30  1=1, NNPS 
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I1=(I-1)*2+1 
I2=(I-l)*2+2 
PSPF(Il)=ZERO 
PSPF(I2)=ZERO 
DO  30  J*1,NNPS 
Jl=( J-l)*2+l 
J2=(J-l)*2+2 
JJ1=LMPSP ( J1 ) 

JJ2=LMPSP(J2) 

PSPF ( II ) =PSPF ( II ) +SPSP ( II, J1 ) *DISP ( JJl ) +SPSP ( II , J2 ) 
+DISP(JJ2) 

PSPF ( 12 ) =PSPF ( 12 ) +SPSP ( 12 , J1 ) *DISP ( JJl ) +SPSP ( 12 , J2 ) 
+DISP( JJ2) 

CONTINUE 

NI=0 

DO  32  I=1,NPEL 
IF(MOD(I,16) .EQ.1)THEN 
NI=NI+1 

SF(NI,1)=PF(I,1) 

SF(NI,2)=PF(I,2) 

SF(NI,3)=PF(I,3) 

SF(NI,4)=PF(I,4) 

SF(NI,5)=PF(I,5) 

END  IF 
CONTINUE 

IF (X.EQ. ZERO) THEN 
NI=0 

DO  33  I=1,NNPS 
IF(MOD(I,17) .EQ.1)THEN 
NI=NI+1 
I1=(I-1)*2+1 
I2=(I-l)*2+2 

SF ( NI , 2 ) =SF ( NI , 2 ) +PSPF ( II ) 

SF (NI , 3 ) =SF ( NI , 3 ) +PSPF ( 12 ) 

END  IF 
CONTINUE 

END  IF 

TFZZ=ZERO 

TFXX=ZERO 

TFYY=ZERO 

TMXX=ZERO 

TMYY=ZERO 

DO  55  NI=1,NPILE 

TFZZ=TFZZ+SF (NI , 1 ) 

TFXX=TFXX+SF (NI , 2 ) 

TFYY=TFYY+SF (NI , 3 ) 

TMXX=TMXX+SF ( NI , 4 ) 

TMYY=TMYY+SF ( NI , 5 ) 

WRITE (NUOl, 556) 

CALL  MPRINT ( SF , NPILE , 5 , NUOl , NPILE ,5,3) 

WRITE ( NUOl , 5 5 7 ) TFZ  Z , TFXX , TFYY , TMXX , TMYY 
IF ( KFLG . EQ . 0 ) THEN 

N7VME=' DISPLACEMENTS:  ' 

WRITE ( NUOl , 20 ) NAME 

CALL  PRNTV2(DISP,NEQ,NUOl,0) 

ENDIF 

NAME= ' SUMMARY  OF  DISPLACEMENTS  AT  TOP  OF  PILE  GROUP 

WRITE ( NUOl ,201) NAME 

CALL  PRNTV2(DISP,NEQ,NU01,1) 

IF ( KFLG . EQ . 0 ) THEN 

NAME= ' OUT  OF  BALANCE  FORCES : ' 

WRITE ( NUOl ,21) NAME 

CALL  PRNTV2 (OBF,NEQ,NUOl,0) 

ENDIF 
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CALL  OBFMAX ( OBF , NEQ , FZ  ZMAX , FXXMAX , FYYMAX , BMXMAX , 
+BMYMAX) 

WRITE ( NUOl , * ) 

WRITE ( NUOl , 2 5 ) FZ  ZMAX , FXXMAX , FYYMAX , BMXMAX , BMYMAX 
WRITE { NUOl , * ) 

IF ( KFLG . EQ . 0 ) THEN 

261  FORMAT(/,lX,A,/,T23, 'X' ,T35, 'Y' ) 

NAME='NF+FF  SOIL  SPRINGS  RESISTANCES  (F) ; ' 

WRITE (NUOl , 261 ) NAME 

CALL  PRNTV1(PSPF,NFLXS,NU01) 

WRITE (NUOl,*) 

ENDIF 

WRITE ( NUOl ,35) SUMV ( PSPF , NFLXS , 1 ) , SUMV ( PSPF , NFLXS , 0 ) 
WRITE ( NUOl ,75) TFXX , TFYY 
I F ( KFLG . EQ . 0 ) THEN 

CALL  SPRGF ( DI SP , SPRF , LMPSP , PY , PCOOR , NEQ , NNP , NFLXS ) 
NAME='NEAR  FIELD  SOIL  RESISTANCE  (F);' 

WRITE ( NUOl , 2 6 1 ) NAME 

CALL  PRNTVl ( SPRF , NFLXS , NUOl ) 

NAME= ' PILE  ELEMENT  FORCES : ' 

WRITE ( NUOl , 45 ) NAME 

CALL  MPRINT ( PF , NPEL , 10 , NUOl ,16,5,4) 

ENDIF 

WRITE (NUOl, 171) 

WRITE(NU01,1751) 

NPIL=0 

DO  191  1=1, NPEL, 16 

NPIL=NPIL+1 

AFZMAX=ZERO 

DO  181  J=I,I+15 

SIGN=1.D0 

IF(PF(J,1) .LT.ZERO)SIGN=-1.DO 
F=ABS(PF(J,1) ) 

IF ( F . GT . AFZMAX ) THEN 
AFZMAX=F 
SIGMAX=SIGN 
ENDIF 

181  CONTINUE 

WRITE ( NUOl , 1801 ) NPIL , SIGMAX*AFZMAX 

191  CONTINUE 
WRITE ( NUOl , * ) 

WRITE (NUOl, 172) 

WRITE (NUOl, 176) 

NPIL=0 

DO  192  1=1, NPEL, 16 

NPIL=NPIL+1 

AFXMAX=ZERO 

DO  182  J=I,I+15 

SIGN=1.D0 

IF(PF( J,2) .LT.ZERO)SIGN=-1.DO 
F=ABS(PF( J,2) ) 

I F ( F . GT . AFXMAX ) THEN 
SIGMAX=SIGN 
IMAX=J 
AFXMAX=F 
ENDIF 

182  CONTINUE 

WRITE ( NUOl , 180 ) NPIL , IMAX , ZNODE ( IMAX+NPIL-1 ) , 

+ZNODE  ( IMAX+NPIL ) , SIGMAX* AFXMAX 

192  CONTINUE 
WRITE (NUOl,*) 

WRITE (NUOl, 173) 

WRITE (NUOl, 176) 

NPIL=0 
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DO  193  I=1,NPEL,16 

NPIL=NPIL+1 

AFYMAX=ZERO 

DO  183  J=I,I+15 

SIGN=1.D0 

IF(PF(J,3) .LT.ZERO)SIGN=-1.DO 
F=ABS(PF( J,3) ) 

I F ( F . GT . AFYMAX ) THEN 
IMAX=J 
AFYMAX=F 
SIGMAX==SIGN 
END  IF 

183  CONTINUE 

WRITE (NUOl , 180 ) NPIL, IMAX, ZNODE ( IMAX+NPIL-1 ) , 

+ZNODE  ( IMAX+NPIL ) , SIGMAX*AFYMAX 

193  CONTINtra: 

WRITE (NUOl,*) 

WRITE (NUOl, 174) 

WRITE (NUOl, 177) 

NPIL=0 

DO  194  I=1,NPEL,16 

NPIL=NPIL+1 

ABXMAX=ZERO 

DO  184  J=I,I+15 

SIGN=1.D0 

IF(PF(J,4) .LT.ZERO)SIGN=-1.DO 
B=ABS(PF( J,4) ) 

I F ( B . GT . ABXMAX ) THEN 
IMAX=J 
ABXMAX=B 
SIGMAX=SIGN 
END  IF 

184  CONTINUE 

WRITE ( NUOl , 190 ) NPIL , IMAX , ZNODE ( IMAX+NPIL-1 ) , 

+SIGMAX* ABXMAX 

194  CONTINUE 
WRITE (NUOl,*) 

WRITE(NU01,175) 

WRITE (NUOl, 177) 

NPIL=0 

DO  195  I=1,NPEL,16 

NPIL=NPIL+1 

ABYMAX=ZERO 

DO  185  J=I,I+15 

SIGN=1.D0 

IF(PF(J,5) .LT.ZERO)SIGN=-1.DO 
B=ABS(PF(J,5) ) 

IF ( B . GT . ABYMAX ) THEN 
IMAX=J 
ABYMAX=B 
SIGMAX=SIGN 
END  IF 

185  CONTINUE 

WRITE ( NUOl , 190 ) NPIL , IMAX , ZNODE ( IMAX+NPIL-1 ) , 
+SIGMAX*ABYMAX 

195  CONTINUE 
WRITE (NUOl, 76) 

RETURN 

F0RMAT(/,1X, ' SUMMARY  OF  ABS  MAXIMUM  OUT-OF-BALANCE' 
+ ' FORCES : ' , 

+T15,'FZZ  = ' ,E10.3,2X, ' (F) ' ,/, 

+T15,'FXX=  ' ,E10.3,2X, ' (F) ' ,/, 

+T15,'FYY  = ' ,E10.3,2X, ' (F) ' ,/, 

+T15,'MXX=  ' ,E10.3,2X, ' (F-L) ' ,/, 


25 


173 


35 

45 

75 

171 

172 

173 

174 

175 

1751 

176 

177 

1801 

180 

190 

76 

556 

557 
20 

201 

21 

C 

C 

C 
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+T15,'MYY  = ' ,E10.3,2X, ' (F-L) ' ) 

FORMAT(/,lX, 

+' CHECK:  TOTAL  LOAD  CARRIED  BY  THE  SOIL',/, 

+'  (SUM  OF  NF+FF  SOIL  SPRINGS  RESISTANCES)',/, 

+'  IN  X DIRECTION  = ' ,E10. 3, 2X, ' (F) ' , / , 

+'  IN  Y DIRECTION  = ' ,E10. 3, 2X, ' (F) ' , / ) 

FORMAT(/,lX,A,/,T4, 'PILE' ,T20, 

+'FZZ' ,T32, 'FXX' ,T44, 'FYY' ,T56, 'MXX' ,T68, 'MYY' ,/, 

+'  ELEMENT#' ,T20, ' (F) ' ,T32, 

+' (F) ' ,T44, '(F) ' ,T54, ' (F-L) ' ,T66, ' (F-L) ' ) 

FORMAT (IX, 

+'  TOTAL  LOAD  APPLIED  AT  TOP  OF  PILE  GROUP',/, 


IN  X DIRECTION  = ',E10.3,2X, 
IN  Y DIRECTION  = ',E10.3,2X, 


(F) 

(F) 


) 


+ ' 

+ ' 

FORMAT ( / , 

+1X, 'SUMMARY  OF  PILE  ELEMENT  FORCES:',/, 

+1X,  ' ',//, 

+1X, •!. MAX  AXIAL  FORCE  (F)',/, 

+1X,  ' ',/) 

FORMAT ( / , 

+1X, '2.  MAX  SHEAR  FORCE  IN  X DIRECTION  (F)',/, 

+1X, ',/) 

FORMAT ( / , 

+1X, '3.  MAX  SHEAR  FORCE  IN  Y DIRECTION  (F)',/, 

+1X, ',/) 

FORMAT ( / , 

+1X,'4.  MAX  BENDING  MOMENT  ABOUT  X AXIS  (F-L)',/, 

+1X, ',/) 

FORMAT ( / , ^ ^ 

+1X,'5.  MAX  BENDING  MOMENT  ABOUT  Y AXIS  (F-L)',/, 

+1X,' ',/) 

FORMAT(T10, 'PILE' ,T22, 'AXIAL' , /,T13, '#' ,T22, 'FORCE ' , / ) 
FORMAT(T10, 'PILE' ,T22, 'PILE' ,T36, 'AT' ,T48, 'AT' , 

+/,T13, '#' ,T21, 'ELEM#' ,T33, 'DEPTH' ,T45, 'DEPTH'T59, 'MAX' 
+/,T29, 'BELOW  CAP' ,T41, 'BELOW  CAP ' ,T60, ' SF ' , / ) 
FORMAT(T10, 'PILE',T22, 'PILE',T36, 'AT', 

+/,T13, '#' ,T21, 'ELEM#' ,T33, 'DEPTH' ,T47, 'MAX' , 

+/,T29, 'BELOW  CAP' ,T48, ' BM' , / ) 

FORMAT (IX, 112, IX, F12. 3) 

F0RMAT(1X,2I12,2F12.3,1X,E11.4) 

FORMAT ( IX, 2112, F12. 3, IX, Ell. 4) 

FORMAT (IX, 


-f'  icit'kicititicit'kicidciciticicicititiciciciciciciticititiciciticificiciciciticiticicititicitickic  * 

FORMAT(/,lX, 'APPLIED  LOADS: ' ,/,T6, 'PILE#' , 

+T18, 'FZZ' ,T28, 'FXX' ,T38, 'FYY' ,T48, 'MXX' ,T58, 'MYY' ) 

FORMAT(/,2X, 'TOTAL  = ',5E10.3) 

F0RMAT(/,1X,A,/,1X, 'PILE  NODE#',T21, 'DZZ',T33, 'DXX', 
+T45, 'DYY' ,T53, 'THETAXX' ,T65, 'THETAYY ' , / , T21 , 

+' (L) ' ,T33, ' (L) ' ,T45, ' (L) ' ,T55, ' (RAD) ' ,T67, 

+' (RAD) ' ) 

FORMAT (A  IX, A, /,T7, 'PILE#' ,T21, 'DZZ' ,T33, 'DXX' , 

+T45, 'DYY' ,T53, 'THETAXX' ,T65, 'THETAYY' , /,T21, 

+' (L) ' ,T33, ' (L) ' ,T45, ' (L) ' ,T55, ' (RAD) ' ,T67, 

+' (RAD) ' ) 

FORMAT( A1X,A,/,1X, 'PILE  NODE#' ,T21, 'FZZ' ,T33, 'FXX' , 
+T45, 'FYY' ,T57, 'MXX' ,T69, 'MYY' ,/,T21, ' (F) ' ,T33, 

+' (F) ' ,T45, '(F) ' ,T55, ' (F-L) ' ,T67, ' (F-L) ' ) 

END 


SUBROUTINE  PRNTIT(NUO) 

THIS  ROUTINE  PRINTS  THE  TITLE  PAGE  OF  OUTPUT 
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Qfcfc  fc  icicicicicicit  icit  it  icit  icic  it  it  -k  It  "k  it  it  icit  icicic  icit  icit  ic  icic  ic  icit  icicicit  fc  it  it  it  it  ic  it  icicfcic  ic  rk 


DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 
CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qit  it  it  it  it  it  k it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  k it  it  it  it  it  it  it  it  it  it  k it  it  it  k it  it  k it  it  it  it  it  it  it  it  it  it  it  it  it  it 

COMMON/PILE /TPL , E , RINER, AREA, DIA, X, ELENP , KCYC , 
+KSOIL,GSE,CL 
COMMON/SOIL/GM, RNU 

COMMON/TIT/NPILE , MAXITN, TOLER, NDINC, TSTIF, KFLG, UNITS 
CHARACTER*70  UNITS 

WRITE ( NUO , 10 ) UNITS , KFLG , TPL , E , RINER, AREA , DI A , X , KCYC 
WRITE ( NUO , 11 ) NPILE , MAXITN , TOLER, KSOIL , GM, RNU , TSTIF 

10  FORMAT ( 

+ T27,';:::  L P G 

+ T5,'THIS  PROGRAM  CALCULATES  THE  LATERAL', 

+ ' LOAD-DEFLECTION  BEHAVIOR ',/, T5 ,' OF  A PILE  GROUP  USING' 
+ ,'  FEM  TECHNIQUE.',//, 

+1X, '******************************************' 

-f'  kkkkkkkkkkkkkkkkkkkkkkkkkkk  * ^ J j ^ 

+ T33, 'I  N P U T',//, 

+ T5, 'UNITS  ARE',T51,'  ; ',A,//, 

+ T5,'CODE  FOR  PRINT  OUT  ',T47,'KFLG  = ',110,//, 

+ T5, 'TOTAL  PILE  LENGTH  ',T50,'L  = ' ,G10.3,T67, ' (L) ' , /, 

+ T5, 'YOUNG'S  MODULUS  OF  PILE  ',T50,'E  = ',G10.3,T67, 

+ '(F/L-2)',/, 

+ T5, 'MOMENT  OF  INERTIA  OF  PILE  ',T50,'I  = ',G10.3,T67, 

+ '(L-4)',/, 

+ T5,'AREA  OF  CROSS  SECTION  OF  PILE  ',T50,'A  = ', 

+ G10.3,T67, ' (L^2) ' ,/, 

+ T5,'DIA  OF  PILE  ',T48,'DIA  = ' ,G10.3,T67, ' (L) ' , //, 

+ T5, 'PROJECTION  OF  PILE  GROUP  ABOVE  ',/, 

+ T12, 'GROUND  LEVEL  ',T50,'X  = ' ,G10.3,T67, ' (L) ' , /, 

+ T5,'#  OF  CYCLES  OF  LOAD  APPLIED  ',T47,'KCYC  = ',110) 

11  FORMAT(/,T5, '#  OF  PILES  IN  THE  GROUP  ',T46, 'NPILE  = ', 

+ 110,/, 

+ T5, 'MAXIMUM  # OF  ITERATIONS  ' ,T45, 'MAXITN  = ',110,/, 

+ T5 ,' TOLERANCE  ',T46, 'TOLER  = ' ,G10.3,T67, ' (L) '//, 

+ T5,'SOIL  TYPE  ',T46, 'KSOIL  = ',110,/, 

+ T5, 'SHEAR  MODULUS  OF  SOIL  ',T50,'G  = ',G10.3,T67, 

+ '(F/L-2)',/, 

+ T5, 'POISSONS  RATIO  OF  SOIL  ',T48,'RNU  = ',G10.3,//, 

+ T5,'PILE  TIP  STIFFNESS' ,T46, 'TSTIF  = ', 

+ G10.3,T67, ' (F/L) ' ) 

RETURN 

END 

C 

SUBROUTINE  SECSTF ( D I SP , FLPSP , STPSP , PY , NAF , PCOOR , 

+LM , SPRF , NNP , NNPS , NFLXS , NEQ , NFT ) 

C 

C THIS  ROUTINE  CALCULATES  THE  SECANT  STIFFNESS  OF  SOIL 

C SPRINGS 

C 

^kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q^kkkkkkkkkkkkkkkkkkkkkkkkkkkkk  kkkkkkkkkkkkkkkkkkkkkkkkkkk  kkk 

DIMENSION  D I SP( NEQ ), FLPSP (NFT) , STPSP (NFLXS, NFLXS ) , 

+PY ( 17 , 6 ), NAF ( NFLXS ), PCOOR ( NNP , 3 ), LM ( NFLXS ), SPRF ( NFLXS ) 
DATA  ZERO/O.ODO/ 

WRITE (*,*)'  FORMING  THE  SOIL  FLEXIBILITY  MATRIX ' 

CALL  SPRGF ( D I SP , S PRF , LM , PY , PCOOR , NEQ , NNP , NFLXS ) 
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BI6=ZER0 

DO  10  I=1,NNPS 

I1=(I-1)*2+1 

I2=(I-l)*2+2 

IPT1=NAF(I1) 

IPT2=NAF(I2) 

II1=LM(I1) 

II2=LM(I2) 

IF(SPRF(I1) .EQ.ZERO)THEN 
GO  TO  10 

ELSE 

FLPSP ( IPTl ) =FLPSP (1PT1)+DISP(II1)/ SPRF (II) 

IF ( FLPSP ( IPTl ) . GT . BIG ) BIG=FLPSP ( IPTl ) 

END  IF 

IF ( SPRF ( 12 ) .EQ. ZERO) THEN 
GO  TO  10 

ELSE 

FLPSP ( IPT2 ) =FLPSP ( IPT2 ) +DISP ( II2 ) /SPRF ( 12 ) 

IF ( FLPSP ( IPT2 ) . GT . BIG ) BIG=FLPSP ( IPT2 ) 

ENDIF 

10  CONTINUE 

BIG=BIG*1000.D0 
DO  20  I=1,NNPS 
I1=(I-1)*2+1 
12=11+1 
IPT1=NAF(I1) 

IPT2=NAF(I2) 

II1=LM(I1) 

II2=LM(I2) 

IF ( SPRF ( II ) . EQ . ZERO) FLPSP ( IPTl ) =FLPSP ( IPTl ) +BIG 
IF ( SPRF ( 12 ) . EQ . ZERO ) FLPSP ( IPT2 ) =FLPSP ( IPT2 ) +BIG 
20  CONTINUE 

WRITE (*,*)'  INVERTING  THE  SOIL  FLEXIBILITY  MATRIX' 

CALL  INVERT ( FLPSP , STPSP , NAF , NFLXS , NFT ) 

RETURN 

END 

C 

SUBROUTINE  SPRGF ( D I SP , SPRF , LM , PY , PCOOR , NEQ , NNP , NFLXS ) 

C 

C THIS  SUBROUTINE  CALCULATES  THE  SOIL  SPRING  FORCES. 

C THE  SPRING  FORCES  ARE  HYPERBOLIC  FUNCTIONS  OF  THE 

C SPRING  DISPLACEMENTS  (AS  PROPOSED  BY  O'NEILL  ET.  AL. ) 

C 

Qit  ic  it  icif  fc  it  icit  it  it  it  ic  * -k  it  icicit  ft  it  icicit  fc  icit  i€  icfc  icic  9cicicir  it  icicir -kicicicicic  fcit  Tk  if  ft  it  icfc  * it  it  ic 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

k ft  k it  ft  ft  ft  k k k it  k ft  k it  k k it  it  it  k k k k k k k ft  k k k ft  k k k k it  k it  k k k k k k k k k it  k it  k k ft  it  k k k 

DIMENSION  DISP(NEQ) ,SPRF(NFLXS) ,LM(NFLXS) ,PY(17,6) , 
+PCOOR ( NNP , 3 ) 

COMMON/ P I LE / TPL, E , RINER, AREA, DIA, X, ELENP , KCYC, KSOIL, 
+GSE , CL 

DATA  ZERO,PT5/0.0,0.5/ 

J=16 

IF(X.EQ.ZERO) J=17 
NI=0 

DO  10  1=1, NNP 

IF(X.NE.ZERO.AND.MOD(I, 17) .EQ.l)GO  TO  10 
NI=NI+1 

NI1=(NI-1)*2+1 
NI2=(NI-l)*2+2 
NMOD=MOD ( NI , J ) 

IF(NMOD.EQ.l.OR.NMOD.EQ.0)THEN 

ELEN=ELENP*PT5 
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ELSE 

ELEN=ELENP 

ENDIF 

II1=LM(NI1) 

I12=LM(NI2) 

yi=DISP(IIl) 

Y2=DISP(II2) 

IMOD=MOD (1,17) 

IF ( IMOD . EQ. 0 ) IMOD=17 
RK=PY ( IMOD , 2 ) 

IF ( KSOIL . EQ . 0 ) THEN 

SPRF (Nil ) =RK*Y1*ELEN 
SPRF ( NI 2 ) =RK*Y2  *ELEN 
ELSE IF ( KSOIL . EQ . 1 ) THEN 
Z=PCOOR(I,3)-GSE 
SPRF (Nil ) =RK*Y1*Z*ELEN 
SPRF ( NI 2 ) =RK* Y2  * Z *ELEN 
ELSE 

PHI=PY(IMOD,l) 

GAMMAD=PY ( IMOD , 3 ) 

Z=PCOOR ( I , 3 ) -GSE 
IF ( PHI . EQ . ZERO ) THEN 

IF ( CL . EQ . ZERO ) CL=CRITL ( PY , PCOOR , NNP ) 

C=PY ( IMOD , 4 ) 

E50=PY(IMOD,5) 

E100=PY(IMOD,6) 

P1=PCLAY(C,E50,E100,Z,Y1) 

P2=PCLAY(C,E50,E100,Z,Y2) 

ELSE 

P1=PSAND ( PHI , RK, GAMMAD , Z , Y1 ) 

P2=PSAND ( PHI , RK, GAMMAD , Z , Y2 ) 

ENDIF 

SPRF (Nil ) =P1*ELEN 
SPRF ( NI 2 ) =P2  *ELEN 
ENDIF 

10  CONTINUE 
RETURN 
END 

C 

SUBROUTINE  SUBSOL ( STIF , B , NA, NEQ, LEQ , NL , KK ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q*  ***************************************  4t  4t  ***********  4m*c  **  * 

c 

C ACTIVE  COLUMN  EQUATION  SOLVER  - STIF*X  = B 

C 

C STIF 

C 

C B 

C 
C 

C NL 

C NEQ 

C LEQ 

C 
C 

C KK 

C KK=1 

C KK=2 

C KK=3 

C KK=4 

C 

c 

DIMENSION  STIF(NEQ) ,B(NEQ,NL) ,NA(NEQ) 


= STIFFNESS  MATRIX  TERMS  IN  COMPACTED  PROFILE 
FORM 

= LOADS  - AFTER  THE  ROUTINE  IT  CONTAINS  THE 
DISPLACEMENTS 

= NUMBER  OF  LOAD  CASES  (COLUMNS  OF  LOADS) 

= NUBMER  OF  EQUATIONS. 

= NUMBER  OF  EQUATIONS  TO  REDUCE.  (SINCE  THIS 
IS  A SUBSTRUCTURING  EQUATION  SOLVER,  THE  FIRST 
LEQ  EQUATIONS  WILL  BE  REDUCED. 

= THE  SOLUTION  CONTROL  PARAMETER 
LDL  FACTORAZATION  ONLY 
FORWARD  REDUCTION  ONLY 
BACKSUBSTITUTION  ONLY 
COMPLETE  SOLUTION 
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COMMON  /lOLIST/  NTM,NTR,NIN,NOT,NTl,NFL, 

+NT2  , NT3  , NT4 , NT5 

-SELECT  OPTION  

GO  TO  (50,550,890,50),  KK 

C LDL  DECOMPOSITION  

50  IF  (NEQ.EQ.l)  RETURN 
DO  500  J=2,NEQ 
JH=NA( J)-NA( J-1) 

IF  (JH.EQ.l)  GO  TO  500 
K=J-JH+1 

C FORM  U(I,J)  - TOP  OF  COLUMN  DOWN  TO  DIAGONAL 

I=K 

100  NT=MIN0  ( JH-J+I,NA(I)-NA(I-1) )-l 
NS=NA ( I ) -NT 
NE=NA(I)-1 
IJ=NA( J)-J+I 
IC=IJ-NA(I) 

NSI=NS+IC 

S=0.0D0 

IF  (I.EQ.J)  GO  TO  400 
IF(I.GT.LEQ)  NT=NT+LEQ-I+1 
IF  (NT.GT.O)  THEN 

CALL  DOTP(STIF(NS) ,STIF(NSI) ,S,NT) 

STIF ( IJ) =STIF ( I J ) -S 
END  IF 
1=1+1 
GO  TO  100 

C FORM  L(I,J)  AND  U(I,I)  

400  IF(I.GT.LEQ)  NE=NE+LEQ-I+1 
IF(STIF(IJ) .EQ.O.ODO)  THEN 
WRITE  (NTM,2000)  I,STIF(IJ) 

WRITE  (NOT, 2000)  I,STIF(IJ) 

STIF(IJ)  = 1.0 
END  IF 

DG=STIF(IJ) 

IF(NE.GE.NS)  THEN 
DO  450  N=NS,NE 
ND=NA ( K ) 

K=K+1 

T=STIF(N) 

IF(STIF(ND) .NE.O.ODO)  THEN 
STIF (N)=STIF(N) /STIF (ND) 

S=S+STIF(N)*T 
END  IF 

450  CONTINUE 
ENDIF 

460  STIF(IJ)=STIF(IJ)-S 

C CHECK  FOR  SINGULAR  MATRIX  

IF(STIF(IJ) .EQ.O.ODO)  THEN 
WRITE  (NTM,2100)  I,STIF(IJ) 

WRITE  (NOT, 2100)  I,STIF(IJ) 

GO  TO  500 
ENDIF 

500  CONTINUE 

IF(KK.EQ.4)  GO  TO  550 
RETURN 

C FORWARD  REDUCTION  OF  LOAD  VECTOR  B 

550  DO  860  L=1,NL 
DO  700  J=2,NEQ 
JH=NA ( J ) -NA ( J-1 ) -1 
NS=NA( J)-JH 
K=J-JH 

IF(J.GT.LEQ)  JH=JH+LEQ-J+1 
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IF(JH.GT.O)  THEN 

CALL  DOTP(STIF(NS) ,B(K,L) JH) 

B( J,L)=B( J,L)-S 
ENDIF 

700  CONTINUE 
800  DO  850  1=1, LEQ 
K=NA ( I ) 

IF(STIF(K) .NE.O.ODO)  THEN 
B(I,L)=B(I,L)/STIF(K) 

ENDIF 

850  CONTINUE 
860  CONTINUE 

IF(KK.EQ.4)  GO  TO  890 
RETURN 

C EVALUATION  OF  VECTOR  X BY  BACKSUBSTITUTION  

890  DO  960  L=1,NL 

DO  950  J=NEQ,2,-1 
K= J-NA ( J ) +NA ( J-1 ) +1 
NS=NA(J-1)+1 
JH=NA(J)-NA(J-1)  -1 
IF(J.GT.LEQ)  JH=JH+LEQ-J+1 
IF(JH.GT.O)  THEN 
S=-B( J,L) 

CALL  ADDV(B(K,L) ,STIF(NS) JH) 

ENDIF 

950  CONTINUE 
C 

960  CONTINUE 
RETURN 

C 

2000  FORMAT  ('  EQUATION  DIAGONAL  TERM  =',E15.7) 

2001  FORMAT  ('  EQUATION  # ',14,'  REDUCTION  LOST  ',F6.2,' 
FIGURES ' ) 

2100  FORMAT ('  EQUATION  #',I4,'  DIAG  DEVEL  =',E15.7) 

END 

C 

SUBROUTINE  TIP ( STRK, NA , TSTIF , NGT , NEQ ) 

C 

C THIS  ROUTINE  INCORPORATES  THE  PRESCRIBED  PILE  TIP 

C DISPLACEMENTS 

Qit  it  fc  ic  ic  it  it  it  it  it  it  ic  ic  ft  it  it  ificit  "k  icicic  "kicit  icicicicicit  it  ic  icit  it  ic  icicit  ft  ft  icicicicicic  i(  it  fcidcickicic  fc 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,Q-Z) 

Q^k  it  k k k k it  it  ft  it  k it  k it  k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

DIMENSION  STRK(NGT) ,NA(NEQ) 

DO  10  1=1, NEQ 
IPOI=NA(I) 

IF (MOD (I,85).EQ.81) STRK ( IPOI ) =STRK ( IPOI ) +TSTIF 
10  CONTINUE 

RETURN 
END 

C 


ooo  ooooooooooo 
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APPENDIX  D 

FORTRAN  CODE  OF  PROGRAM  LPG-VERSION  2 


MAIN  PROGRAM  - LPG  VERSION  2(LU) 

- PROGRAMMED  BY  SHANMUGRAJ  SUBRAMANIAN 

- MAY  1992 

THIS  PROGRAM  CALCULATES  THE  LOAD -DEFLECT I ON  BEHAVIOR 
OF  A PILE  GROUP  SUBJECTED  TO  LATERAL  LOADS  USING  FEM 
TECHNIQUE 

iricicicfciciciticicitic’kitititititicitit'kicicicicicicitititititiciticit'kiticicicicicititiciciciticiciciciciciciric 

- CHANGE  THE  FOLLOWING  LINES  TO  ALTER  THE  SIZE  AND 
PRECISION  OF  OF  COMPUTER  ANALYSIS  OF  THE  PILE  GROUP 

PARAMETER ( MTOT  = 550000, 

+ IPR  = 2 ) 

fc’k'k^'kic^icic^fcfciticiciticiritic’kiticititit'k'kicitidticicicicicidcitidciciciciciticiricic’kiciticicicic^ 

DEACTIVATE  THE  FOLLOWING  LINES  FOR  SINGLE  PRECISION 
CALCULATIONS 

DOUBLE  PRECISION  TPL,E,RINER, AREA,DIA,X,ELENP,GM, 

+RNU , TOLER , STEP , ERRD I S , ERRMAX , GSE , CL  ^ TST I F 

"k  icicicit  it  ifk  icicicit  it  it  it  it  ic  ic  it  icit  it  itic  it  icfc  it  -kicit  if  idcfcicicit  it  icic  "k  it  icic  it  iciciciciciciticit  ic  if  ic 

CHARACTER* 70  NAME, UNITS 

COMMON/ P ILE / TPL , E , RINER , AREA , D I A , X , ELENP , KCYC , 
+KSOIL,GSE,CL 
COMMON/SOIL/GM,  RNU 
COMMON/OUTPUT/NUOl , NU02 
COMMON/POINT/MFIRST,MLAST, IPRCN 
COMMON/TIT/NPILE , NPA,MAXITN, TOLER, NDINC, TSTIF, 

+KFLG, UNITS 
COMMON/BIG/A ( MTOT ) 

DATA  ZERO/ 0.0/ 

NUI=7 

NU01=8 

NU02=9 

NUO3=10 

IPRCN=IPR 

MFIRST=1 

MLAST=MTOT 

CL=ZERO 

CALL  OPEN ( NUI , NUOl , NU02 , NU03 ) 

WRITE(*,*)'  READING  DATA' 

RE AD (NUI, 2) NAME 
WRITE ( NUOl ,21) NAME 
READ (NUI, 2) UNITS 
READ ( NUI, *)KFLG 

READ ( NUI , * ) TPL , E , RINER , AREA , D I A 

READ ( NUI ,*) X , KCYC 

READ ( NUI , * ) NPILE , NPA 

READ ( NUI , * ) MAXITN , TOLER 

READ ( NUI , * ) KSOIL , GM , RNU 

READ (NUI,*) TSTIF 

WRITE ( NUOl , 3 ) 

CALL  PRNTIT(NUOl) 
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NNP=17*NPILE 

NNPA=17*NPA 

NNPAS=16*NPA 

I F ( X . EQ . ZERO ) NNPAS= 1 7 *NPA 

NEQ=5*NNPA 

NPEL=16*NPA 

NFLXAS=32*NPA 

IF(X.EQ.ZERO)NFLXAS=34*NPA 

NFLXS=32*NPILE 

IF ( X . EQ . ZERO ) NFLXS=34  *NPILE 

MPPY=MPOINT (17,6, IPR) 

CALL  MREAD(A(MPPY) ,17,6,NUI) 

IF ( KSOIL . EQ . 0 ) THEN 
ASSIGN  51  TO  NFMT 
ELSE 

ASSIGN  5 TO  NFMT 
END  IF 

NAME='PY  CURVES  DATA:' 

WRITE ( NUOl , NFMT ) NAME 

CALL  MPRINT(A(MPPY) ,17,6,NU01,17,6,3) 

MPPGEO=MPOINT ( NPILE , 2 , I PR ) 

CALL  MREAD(A(MPPGEO) ,NPILE,2,NUI) 

NAME='PILE  GEOMETRY:' 

WRITE  ( NUOl , 6 ) NAME 

CALL  MPRINT(A(MPPGEO) , NPILE, 2 , NUOl, NPILE, 2 , 3 ) 
MPPCOO=MPOINT ( NNP , 3 , IPR) 

CALL  PILCOR ( A ( MPPCOO ) , A ( MPPGEO ) , NPILE , NNP ) 
MPNPS=MPOINT ( NPILE ,0,1) 

CALL  VREAD(A(MPNPS) , NPILE, NUI) 

NAME='PILE  SYMMETRY  #(S):' 

WRITE ( NUOl , 88 ) NAME 

CALL  PRNTVI(A(MPNPS) , NPILE, NAME, NUOl) 

WRITE ( NUOl , * ) 

READ ( NUI ,*) KTZ , KTX , KTY , KRX , KRY 
WRITE ( NUOl , 198 ) KTZ , KTX , KTY , KRX , KRY 
MPCDIS=MPOINT (NPA, 5,2) 

CALL  MR£AD(A(MPCDIS) ,NPA,5,NUI) 

WRITE (NUOl, 221) 

CALL  MPRINT(A(MPCDIS) , NPA, 5 , NUOl, NPA, 5 , 3 ) 

READ (NUI, *)ND INC 
WRITE (NUOl , 87 ) NDINC 
MPFPSP*MPOINT ( NFLXAS , NFLXAS , IPR) 

MPOLD=MFIRST 

MPFILL=MPOINT ( NFLXS , NFLXS , IPR ) 

CALL  FLEX (A (MPPCOO) ,A(MPFPSP) ,A(MPFILL) , A(MPNPS ) , NNP 
+NFLXAS , NFLXS , NPILE , NNP AS ) 

MFIRST=MPOLD 

CALL  MATW ( A ( MPFPSP ) , NFLXAS , NFLXAS , NU03 ) 

NLDOF=NFLXAS 
MPLM=MPOINT ( NFLXAS ,0,1) 

CALL  LMPSP ( A ( MPLM ) , NEQ , NLDOF ) 

MPGLK=MPOINT(NEQ,NEQ, IPR) 

CALL  ZEROM ( A ( MPGLK ) , NEQ , NEQ ) 

MPEKPT=MPOINT (10,10, IPR) 

MPEKPB=MPOINT (10,10, IPR) 

MPLMl=MPOINT (10,0,1) 

NLDOF=10 

CALL  ELSTFP ( A ( MPEKPB ) , NLDOF , 1 ) 

IF (X.EQ. ZERO) THEN 

CALL  COPYM ( A ( MPEKPB ) , A ( MPEKPT ) , NLDOF , NLDOF ) 

ELSE 

CALL  ELSTFP (A (MPEKPT ), NLDOF, 0) 

END  IF 

NNL=(NPA-1)*17+1 
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DO  30  NSOM=l,NNL,17 
DO  30  NN=NSUM, (NSUM+15) 

CALL  LMPEL ( A ( MPLMl ) , NN , NLDOF ) 

IF(MOD(NN,17) .EQ.1)THEN 

CALL  ADDSTF ( A ( MPEKPT ) , A ( MPGLK ) , A ( MPLMl ) , NLDOF , NEQ ) 

ELSE 

CALL  ADDSTF ( A ( MPEKPB ) , A ( MPGLK ) , A ( MPLMl ) , NLDOF , NEQ ) 
ENDIF 
CONTINUE 

MPIFOR=MPOINT ( 5*NPA, 0,1) 

MPFOR=MPOINT ( 5*NPA, 0 , IPR) 

CALL  BOUND (A(MPIFOR) ,A(MPFOR) ,A(MPCD1S) ,A(MPGLK) , 
+NEQ,NPA, KTZ , KTX , KTY , KRX , KRY ) 

CALL  TIP(A(MPGLK) ,TSTIF,NEQ) 

WRITE(NU01,3) 

CALL  MATW ( A ( MPGLK ) , NEQ , NEQ , NU03 ) 

MPSPSP=MPOINT ( NFLXAS , NFLXAS , IPR) 

MPINDX=MPOINT ( NEQ ,0,1) 

MPW=MPOINT  ( NEQ , 0 , IPR ) 


WRITE(*,*)'  ::::::MAX  # OF  INCREMENT(S)  = ',NDINC 
WRITE(*,*)'  ;;;;::MAX  # OF  ITERATION(S)  = ',MAXITN 


CALL  INISTF(A(MPFPSP) ,A(MPPY) ,A(MPPCOO) , 

+A(MPSPSP)  ,A(MPINDX)  ,A(MPW)  ,NNP A, NNP, NFLXAS) 

NLDOF=NFLXAS 

CALL  ADDSTF ( A ( MPSPSP ) , A ( MPGLK ) , A ( MPLM ) , NLDOF , NEQ ) 
MPEXTF=MPOINT ( NEQ , 0 , I PR ) 

MPINTF=MPOINT(NEQ,0,IPR) 

MPDISP=MPOINT (NEQ, 0 , IPR) 

MPODIS=MPOINT ( NEQ , 0 , IPR ) 

MPPSPF=MPOINT (NFLXAS, 0 , IPR) 

MPPF=MPOINT ( NPEL , 1 0 , I PR ) 

MPSPRF=MPOINT ( NFLXAS, 0, IPR) 

MPSF=MPOINT ( NPA , 5 , I PR ) 

WRITE (*, 78 )MTOT, (MFIRST-1), (MTOT-MFIRST+1) 

WRITE (NUOl, 78 )MTOT, (MFIRST-1) , (MTOT-MFIRST+1) 

WRITE(NU01,3) 

WRITE ( NUOl , 61 ) GSE 
IF ( KFLG . EQ . 0 ) THEN 

NAME=' COORDINATES  OF  PILE  NODES:' 

WRITE ( NUOl , 7 ) NAME 

CALL  MPRINT(A(MPPCOO) , NNP, 3, NUOl, 17 , 3 , 3 ) 

ENDIF 

DO  50  IN=1,NDINC 

WRITE (*,*)' INCREMENT  # = ' , IN 

STEP=DBLE ( IN ) 

CALL  NULVEC ( A ( MPEXTF ) , NEQ ) 

CALL  NtJLVEC(A(MPODIS)  ,NEQ) 

CALL  EXTFOR(STEP,A(MPIFOR) ,A(MPFOR) ,A(MPEXTF) , NPA, NEQ) 
ICON=0 

DO  60  IT=1,MAXITN 

WRITE (*,*)'  ITERATION  # = ' , IT 

CALL  COPYM ( A ( MPEXTF ) ,A(MPDISP) ,NEQ, 1) 

WRITE (*,*)'  SOLVING  THE  SYSTEM  EQUATIONS ' 

CALL  SOLVE  (A  (MPGLK)  ,A(MPDISP)  ,A(MPINDX)  ,A(MPW)  ,NEQ) 
ERRDIS=ERRMAX(A(MPODIS) ,A(MPDISP) ,NEQ) 

IF ( IT . NE . 1 .AND . ERRDIS . LE . TOLER) ICON=l 
IF ( ICON. EQ. 1 ) THEN 
REWIND  NU03 

CALL  MATR ( A ( MPFPSP ) , NFLXAS , NFLXAS , NU03 ) 

CALL  MATR ( A ( MPGLK ) , NEQ , NEQ , NU03 ) 

CALL  SECSTF(A(MPDISP) ,A(MPFPSP) ,A(MPSPSP) , 

+A(MPPY) ,A(MPINDX) ,A(MPW) ,A(MPPCOO) ,A(MPLM) ,A(MPSPRF) ,NNPA 
+NNPAS , NNP , NFLXAS , NEQ ) 

CALL  ADDSTF (A(MPSPSP) , A (MPGLK) , A ( MPLM ), NLDOF , NEQ ) 
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60 

50 

2 

21 

3 


5 


51 


6 

61 


7 

76 


77 


78 


75 


CALL  OBFOR(A(MPGLK) ,A(MPDISP) ,A(MPINTF) , 

+A(MPEXTF) /NEQ) 

WRITE (NUOl, 75) 

WRITE (NUOl, 76 ) IN, IT,ERRDIS 
WRITE (NUOl, 75) 

CALL  PRINTF(A(MPDISP) ,A(MPLM) ,A(MPPY) ,A(MPPCOO) , 
+A(MPINTF)  ,A(MPSPSP)  ,A(MPEKPT)  ,A(MPEKPB)  ,A(MPPSPF)  ,A(MPPF)  , 
-l-A  ( MPSPRF ) , A ( MPSF ) , NPEL , NEQ , NNPA , NNP , NNPAS , NPA , NFLXAS , KFLG ) 
GO  TO  50 

ELSE 

IF ( IT . EQ . MAXITN ) THEN 
WRITE (NUOl, 75) 

WRITE(*,77)IN,IT,ERRDIS 
WRITE (NUOl, 77 ) IN, IT,ERRDIS 
WRITE (NUOl, 75) 

STOP 

ELSE 

REWIND  NU03 

CALL  MATR ( A ( MPFPSP ) , NFLXAS , NFLXAS , NU03 ) 

CALL  MATR ( A ( MPGLK ) , NEQ , NEQ , NU03 ) 

CALL  SECSTF(A(MPDISP) ,A(MPFPSP) , 

+A(MPSPSP) ,A(MPPY) ,A(MPINDX) ,A(MPW) ,A(MPPCOO) ,A(MPLM) , 

-HA  ( MPSPRF ) , NNPA , NNPAS , NNP , NFLXAS , NEQ ) 

CALL  ADDSTF(A(MPSPSP) , A (MPGLK) ,A(MPLM) , 

■HNLDOF , NEQ ) 

CALL  COPYM(A(MPDISP) , A(MPODIS ) , NEQ, 1 ) 

END  IF 


END  IF 
CONTINUE 
CONTINUE 
FORMAT (A) 
FORMAT (IX, A) 
FORMAT ( 


-I-  2X , '★★★★★★★★★★★**************^^*****^*********'  f 
-f. '*★★★★★*★★★*★★**★*★★***★**★★ 

FORMAT(/,lX,A,/,T18, 'PHI',T30, 'K',T35, 'GAMMA' 

+T49, 'CU' ,T58, 'E50' ,T67, 'ElOO' ,/,T16, ' (DEG) ' , 

+T24,  ' (F/L''3)  ' ,T34,  ' (F/L^3)  ' ,T44, 

+'(F/L-2) ',T56, ' (L/L) ',T66, ' (L/L) '/) 
F0RMAT(/,1X,A,/,T18, 'PHI',T30, 'K',T35, 'GAMMA' ' , 
+T49, 'CU',T58, 'E50',T67, 'ElOO' ,/,T16, ' (DEG) ', 

+T24,  ' (F/L^2)  ' ,T34,  ' (F/L''3)  ' ,T44, 

+ ' (F/L''2)  ' ,T56,  ' (L/L)  ' ,T66,  ' (L/L)  '/) 
F0RMAT(/,1X,A,/,T6, 'PILE#' ,T20, 'X' ,T30, 'Y' ) 

FORMAT ( / , 

+T22,'::::  OUTPUT  ::::',//, 

+T5 , ' GROUND  SURFACE  ELEVATION  = ',E10.3,1X,'(L)') 
FOimAT(/,lX,A,/,T7, 'PILE' ,T20, 'X' ,T30, 'Y' ,T40, 'Z' ,/ 
+T6 , ' NODE# ' ) 

FORMAT (T 5, 'THE  SOLUTION  CONVERGED  FOR:',/, 

+T5, 'DISPLACEMENT/FORCE  INCREMENT  # = ',110,/, 

+T5,'  ITERATION#  = ',110,/, 

+T5 , ' MAX  DEFLECTION  ERROR  = ' , ElO . 3 , 


+1X,'(L)',/) 

FORMAT ( T5 ,' THE  SOLUTION  COULD  NOT  CONVERGE  FOR: 
+T5, 'DISPLACEMENT/FORCE  INCREMENT  # = ',110,/, 

+T5,'MAX  ITERATION  # = ',110,/, 

+T5,'MAX  DEFLECTION  ERROR 
+',E10.3,1X,'(L)',/) 

FORMAT ( 

+1X, 'TOTAL  # OF  MEMORY  UNITS 
+1X,'#  OF  MEMORY  UNITS  USED  BY  LPG  = 

+1X,'#  OF  MEMORY  UNITS  FREE 
FORMAT ( / , 


',110,/, 

',110,/, 

',110,/) 


,/, 


f 
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+1X,  ' 

+ , ' ' 

+ , ' 

+ ' *) 

87  FORMAT ( / , 

+T5,'#  OF  CAP  LOAD  INCREMENT  = ',110) 

88  FORMAT(/,lX,A,/,4X, 'PILE  #' ,2X, 'SYMMETRY  #') 

198  FORMAT { IX , ' BOUNDARY  CONDITIONS  CODE : ' , / , 


+1X,  ' 

FOR 

TRANSLATION  IN 

Z 

DIRECTION 

= 

^ , 12 , / , 

+1X,  ' 

X 

— 

' ,12,1, 

+1X,  ' 

Y 

— 

, 12 , / , 

+1X,  ' 

FOR 

ROTATION  ABOUT 

X 

AXIS 

= 

' ,12,1 

+1X,  ' 

Y 

AXIS 

' ,12,D 

221  FORMAT(lX, 'CAP  LOADS/DISPLACEMENTS: ' , /, 

+T6, 'PILE#' ,T14, 'F2Z/DZZ' ,T24, 'FXX/DXX' ,T34, 'FYY/DYY' , 
+T44, 'MXX/RXX' ,T54, 'MYY/RYY' ) 

END 

C 

SUBROUTINE  ADDSTF(EKM  ,GLK,LM,NLDOF,NEQ) 

C 

C THIS  ROUTINE  ADDS  THE  ELEMENT  STIFFNES  MATRIX  TO  THE 

C GLOBAL  STIFFNESS  MATRIX 

C 

Qic  ic  ic  rk  -k  it  -k  ic  ic  it  it  ic  it  "k  it  ic  -k  ic  icit  -kit  it  fcit  it  it  itic  fc  it  ic  fc  it  icicicit  icicicic  ic  'k'kicic’kicic  icicit  ic  icicicicic 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qit  it  it  k it  it  it  it  it  it  it  it  k it  it  it  it  it  k it  it  it  it  it  it  it  k k it  k it  k it  k k k it  it  it  it  it  it  it  it  it  it  it  it  it  k it  it  it  k it  it  it  k k 

DIMENSION  EKM ( NLDOF , NLDOF ) , GLK ( NEQ , NEQ ) ,LM(NLDOF) 

DO  10  I=l,NLDOF 
N=LM ( I ) 

DO  10  J=l,NLDOF 
M=LM( J) 

GLK(N,M)=GLK(N,M)+EKM(I, J) 

10  CONTINUE 

RETURN 
END 

C 

SUBROUTINE  BOUND ( IFOR, FOR, CDIS , STRK, NEQ, NPA, 

+KTZ , KTX,  KTY , KRX,  KRY ) 

C 

C THIS  ROUTINE  INCORPORATES  BOUNDARY  CONDITIONS  TO  THE 

C TOP  OF  PILES  >KTZ, KTX, KTY, KRX, KRY  = 0 MEANS  FORCE 

C BOUNDARY  CONDITION  AND  = 1 MEANS  DISPLACEMENT  BOUNDARY 

Qkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q^k  k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

COMMON/POINT/MFIRST,MLAST, IPRCN 

DIMENSION  STRK(NEQ,NEQ) ,IFOR(5*NPA) ,FOR(5*NPA) , 
+CDIS(NPA,5) 

EPB=0.D0 
DO  5 J=1,NEQ 
DO  4 1=1, J 
DUM=STRK ( I , J ) 

IF ( EPB . LT . DUM ) EPB=DUM 

4 CONTINUE 

5 CONTINUE 
EPB=1.D3*EPB 
K=0 

DO  10  1=1, NEQ 
IF (MOD (1,85) .EQ.1)THEN 
K=K+1 
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K1=(K-1)*5+1 

IFOR(Kl)=I 

IF(KTZ.EQ.O)THEN 

F0R(K1)=CDIS(K,1) 

ELSE 

STRK(I,I)=STRK(I,I)+EPB 

FOR(Kl)=STRK(I,I)*CDIS(K,l) 

END  IF 

Kl=(K-l)*5+2 
IFOR (Kl) =1+1 
IF(KTX.EQ.O)THEN 

FOR(Kl)=CDIS(K,2) 

ELSE 

STRK ( I+l , I+l ) =STRK ( I+l , I+l ) +EPB 
FOR(Kl ) =STRK( I+l , I+l ) *CDIS (K, 2 ) 

END  IF 

Kl=(K-l)*5+3 
IFOR (Kl) =1+2 
IF(KTY.EQ.O)THEN 

FOR(Kl)=CDIS(K,3) 

ELSE 

STRK  ( 1+2 , 1+2 ) =STRK ( 1+2 , 1+2 ) +EPB 
F0R(K1)=STRK(I+2,I+2)*CDIS(K,3) 

END  IF 

Kl=(K-l)*5+4 

IFOR(Kl)=I+3 

IF(KRX.EQ.O)THEN 

FOR(Kl)=CDIS(K,4) 

ELSE 

STRK ( 1+3 , 1+3 ) =STRK ( 1+3 , 1+3 ) +EPB 
F0R(K1)=STRK(I+3,I+3)*CDIS(K,4) 

END  IF 

Kl=(K-l)*5+5 

IFOR(Kl)=I+4 

IF(KRY.EQ.O)THEN 

FOR(Kl)=CDIS(K, 5) 

ELSE 

STRK ( 1+4 , 1+4 ) =STRK ( 1+4 , 1+4 ) +EPB 
F0R(K1)=STRK(I+4,I+4)*CDIS(K,5) 

END  IF 
END  IF 

10  CONTINUE 
RETURN 
END 

C 

SUBROUTINE  EXTFOR(STEP, IFOR, FOR, EXTF,NPA,NEQ) 

C 

C THIS  ROUTINE  CALCULATES  THE  EXTERNAL  FORCES  APPLIED 

C TO  THE  PILE  GROUP  SYSTEM 

C 

Qir  it  i(  icit  -kit  it  it  icicicit  ir  it  "k  it  icic  ic  ic  icicit  ic  ic  icit  -kicic  -k  -k  it  icicic  ir  icicis  icicicit  ic  ic  -k  ic  ic  ic  it  rkiricit  it  -k 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qk  k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

DIMENSION  IFOR(5*NPA) ,FOR(5*NPA) ,EXTF(NEQ) 

IMAX=5*NPA 
DO  10  I=1,IMAX 
II=IFOR(I) 

EXTF  (II)  =FOR  ( I ) STEP 
10  CONTINUE 

RETURN 
END 

C 
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SUBROUTINE  FLEX ( PCOOR , FLPSP , FLPSPl , NPS , NNP , NFLXAS , 
+NFLXS , NPILE , NNP AS ) 

C 

C THIS  ROUTINE  CALCULTES  PILE-SOIL-PILE  FLEXIBILITY  BY 

C MINDLIN  FLEXIBILITY  EQNS  FOR  POINT  FORCES  APPLIED  AT 

C A POINT  INSIDE  AN  ELASTIC  CONTINUUM  IN  X AND  Y 

C DIRECTIONS 

ic  fc  fc  ic  ic  fc  ft  ic  ic  fc  it  ^ it  ic  it  ic  it  it  it  It  ic  it  fc  it  icic  It  it  it  fc  it  -k  ft  icfc  fc  itit  it  "k  fcicit  it  "k  "k  icit  icicit  it  icit  idticic 

c DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qit  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

COMMON/SOIL/GM, RNU 

COMMON/PILE/TPL, E , RINER, AREA, DIA, X, ELENP , KCYC, 
+KSOIL,GSE,CL 

DIMENSION  PCOOR ( NNP,3) ,FLPSP( NFLXAS, NFLXAS) , 
+FLPSP1(NFLXS,NFLXS) , NPS (NPILE) 

DATA  PI , ZERO, ONE , TWO, THREE , FOUR, RN16 , EN5 
+/3. 1415927, 0.0, 1.0, 2. 0,3. 0,4. 0,16. 0,0. 00001/ 
Cl=ONE/(RN16*PI*GM*(ONE-RNU) ) 

C2=THREE-FOUR*RNU 

C3=FOUR* (ONE-RNU) * (ONE-TWO*RNU) 

NJ=0 

DO  10  J=1,NNP 

IF(X.NE.ZERO.AND.MOD( J,17) .EQ.l)GO  TO  10 
NJ=NJ+1 

NJ1=(NJ-1)*2+1 

NJ2=(NJ-l)*2+2 

NI=0 

DO  20  1=1, NNP 

IF(X.NE.ZERO.AND.MOD(I,17) .EQ.l)GO  TO  20 
NI=NI+1 

NI1=(NI-1)*2+1 
NI2=(NI-l)*2+2 
IF(NIl.GT.NJl)GO  TO  20 
DELX=PCOOR (1,1) -PCOOR ( J , 1 ) 

DELY=PCOOR (1,2) -PCOOR ( J , 2 ) 

XSQ=DELX*DELX 

YSQ=DELY*DELY 

RSQ=XSQ+YSQ 

IF ( RSQ . LT . EN5 ) THEN 

FLPSPl (Nil ,NJ1 ) =ZERO 
FLPSPl ( NI2 , NJl ) =ZERO 
FLPSPl (NIl,NJ2)=ZERO 
FLPSPl (NI2 , NJ2 ) =ZERO 
GO  TO  20 
END  IF 

Z=PCOOR(I,3)-GSE 
C=PCOOR ( J , 3 ) -GSE 
R1=DSQRT ( RSQ+ ( Z -C ) * * 2 ) 

R2=DSQRT ( RSQ+ ( Z+C ) * *2 ) 

Dl=ONE/Rl 

D1CU=D1*D1*D1 

D2=ONE/R2 

D2SQ=D2*D2 

D2CU=D2*D2SQ 

DUM=ONE/ (R2+Z+C) 

F1=C2*D1+D2 

F2=C2*D2CU+D1CU 

F3=TWO*C*Z*D2CU 

F4=THREE*D2SQ 

F5=C3*DUM 

F6=D2*DUM 
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F7=(F1+F3+F5)*C1 
F8= ( F2-F3*F4-F5*F6 ) *C1 
FLPSPl (Nil, N J1 ) =F7+F8*XSQ 
FLPSPl (NI2 , NJl ) =DELX*DELY*F8 
FLPSPl (Nil, N J2 ) =FLPSP1 ( NI 2 , N J1 ) 

FLPSPl ( NI2 , NJ2 ) =F7+F8*YSQ 
20  CONTINUE 

10  CONTINUE 

DO  25  J=1,NFLXAS-1 
DO  25  I=J+1,NFLXAS 
FLPSPl ( I , J ) *FLPSP1 ( J , I ) 

25  CONTINUE 

C 

C INVOKE  SYMMETRY 

C 

JJ=16 

IF ( X . EQ . ZERO ) J J=17 

DO  30  I=1,NNPAS 

I1=(I-1)*2+1 

I2=(I-l)*2+2 

DO  40  J=1,NPILE 

IF(NPS( J) .EQ. J)GO  TO  40 

DO  50  K=1,JJ 

NXI=(NPS( J)-1)*JJ+K 

NXC=(J-1)*JJ+K 

NXI1=(NXI-1)*2+1 

NXI2=(NXI-l)*2+2 

NXC1=(NXC-1)*2+1 

NXC2=(NXC-l)*2+2 

FLPSP1(I1,NXI1)=FLPSP1(I1,NXI1)+FLPSP1(I1,NXC1) 

FLPSPl ( 12 , NXIl ) =FLPSP1 ( 12 , NXIl ) +FLPSP1 ( 12 , NXCl ) 

FLPSPl (II, NXI2 ) =FLPSP1 (II, NXI2 ) +FLPSP1 (II, NXC2 ) 

FLPSPl ( 12 , NXI2 ) =FLPSP1 ( 12 , NXI2 ) +FLPSP1 ( 12 , NXC2 ) 

50  CONTINUE 

40  CONTINUE 

30  CONTINUE 

C 

C CONDENSE  FLEXIBILITY  MATRIX  'FLPSPl'  INTO  'FLPSP' 

C AFTER  INVOKING  SYMMETRY 

DO  60  I*1,NFLXAS 
DO  60  J=1,NFLXAS 
60  FLPSP(I, J)=FLPSP1(I, J) 

RETURN 

END 

C 

SUBROUTINE  INISTF ( FLPSP , PY , PCOOR, STPSP , INDX , W , 

+NNPA , NNP , NFLXAS ) 

C 

C THIS  ROUTINE  CALCULATES  THE  INITIAL  TANGENT  STIFFNESS 

C OF  LINEAR  SOIL  SPRINGS  OR  NON-LINEAR  SOIL  SPRINGS 

C (PROPOSED  BY  O'NEILL  ET.  AL. ) 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q*  ***************************************  4t  4t  4t  * *4t  ******  4r  ***  * 

DIMENSION  FLPSP ( NFLXAS , NFLXAS ) , PY ( 17 , 6 ) , PCOOR ( NNP , 3 ) , 
+STPSP ( NFLXAS , NFLXAS ) , INDX ( NFLXAS ) , W ( NFLXAS ) 
COMMON/PILE /TPL , E , RINER , AREA , D I A , X , ELENP , KCYC , 
+KSOIL,GSE,CL 

DATA  ZERO,PT5,ONE/0.0,0.5,1.0/ 

WRITE (*,*)'  FORMING  THE  SOIL  FLEXIBILITY  MATRIX ' 

SMALL=1.D60 

DO  50  1=1,17 
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IF ( KSOIL . EQ . 0 ) THEN 
RK=PY (1,2) *ELENP 
IF ( GSE . GT . ZERO ) THEN 
IF(I.EQ.1)VAR=1.D60 
IF ( I .GT. 1 . AND.RK.GT. ZERO) VAR=RK 
ELSE 

I F ( RK . GT . ZERO ) VAR=RK 
ENDIF 

ELSEIF(KS0IL.EQ.1.0R.PY(I,1) . NE . ZERO ) THEN 
RK=PY (1,2) *ELENP* ( PCOOR (1,3) -GSE ) 

IF ( GSE . GT . ZERO ) THEN 
IF(I.LE.2)VAR=1.D60 
IF ( I. GT. 2. AND.RK.GT. ZERO) VAR=RK 
ELSE 

IF(I.EQ.1)VAR=1.D60 
IF ( I . GT . 1 . AND . RK. GT . ZERO ) VAR=RK 
ENDIF 
ELSE 

RK=ESTABL ( PY ( I , 4 ) ) *ELENP 
IF ( GSE . GT . ZERO ) THEN 
IF(I.EQ.1)VAR=1.D60 
I F ( I . GT . 1 . AND . RK . GT . ZERO ) VAR=RK 
ELSE 

IF ( RK . GT . ZERO ) VAR=RK 
ENDIF 
ENDIF 

IF ( VAR . LT . SMALL ) SMALL=VAR 

CONTINUE 

EPB=1.D3/ SMALL 

J=16 

IF(X.EQ.ZERO) J=17 
NI=0 

DO  10  I=1,NNPA 

IF(X.NE.ZERO.AND.MOD(I,17) .EQ.l)GO  TO  10 
NI=NI+1 

NI1=(NI-1)*2+1 
NI2=(NI-l)*2+2 
NMOD=MOD ( NI , J ) 

IF ( NMOD . EQ . 1 . OR . NMOD . EQ . 0 ) THEN 
ELEN=ELENP*PT5 

ELSE 

ELEN=ELENP 

ENDIF 

Z=PCOOR(I,3)-GSE 
IMOD=MOD (1,17) 

IF ( IMOD . EQ. 0 ) IMOD=17 
RK=PY ( IMOD , 2 ) 

PHI=PY(IMOD,l) 

IF ( KSOIL . EQ . 0 ) THEN 

IF ( RK . EQ . ZERO ) THEN 

FLPSP(NI1,NI1)=FLPSP(NI1,NI1)+EPB 
FLPSP ( NI2 , NI2 ) =FLPSP (NI2 , NI2 ) +EPB 
ELSE 

FLPSP (NIl,NIl)=FLPSP(NIl,NIl)+ONE/(RK*ELEN) 
FLPSP ( NI2 , NI2 ) =FLPSP ( NI2 , NI2 ) +ONE / ( RK*ELEN ) 
ENDIF 

ELSEIF ( KSOIL . EQ . 1 . OR . PHI . NE . ZERO ) THEN 
IF(RK.EQ.ZERO.OR.Z.EQ. ZERO) THEN 

FLPSP ( NI 1 , NI 1 ) =FLPSP ( NI 1 , NI 1 ) +EPB 
FLPSP ( NI2 , NI2 ) =FLPSP ( NI2 , NI2 ) +EPB 
ELSE 

FLPSP ( NI 1 , NI 1 ) =FLPSP ( NI 1 , NI 1 ) +ONE / ( RK*  Z *ELEN ) 
FLPSP (NI2,NI2)=FLPSP(NI2,NI2)+ONE/(RK*Z*ELEN) 
ENDIF 
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ELSE 

C=PY ( IMOD , 4 ) 

ES=ESTABL(C) 

FLPSP ( NI 1 , NI 1 ) =FLPSP ( NI 1 , NI 1 ) +ONE / ( ES  *ELEN ) 

FLPSP ( NI2 , NI2 ) =FLPSP ( NI2 , NI2 ) +ONE/ ( ES*ELEN ) 

ENDIF 

10  CONTINUE 

WRITE INVERTING  THE  SOIL  FLEXIBILITY  MATRIX' 

CALL  INVERT ( FLPSP , STPSP , INDX , W , NFLXAS ) 

RETURN 

END 

C 

SUBROUTINE  INVERT (A, B, INDX, W, N) 

C 

C THIS  ROUTINE  INVERTS  THE  MATRIX  'A'  INTO  'B'  BY  USING 

C THE  ROUTINES  'LUDCMP'  AND  'LUBKSB' 

Qic  -k  -k  -k  it  fcit  icic  ic  icit  it  it  icit  it  it  it  it  icicit  icit  it  i(it  it  fcicicic  icit  it  it  iticicit  it  ic  "kicicicicic  it  fc  icicicic  fc  icic 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C*******^^****1*f********^<f***********^**********T*f*******^**** 

DIMENSION  A(N,N)  ,B(N,N)  , INDX(N)  /W(N) 

DATA  ZERO, ONE/0. 0,1.0/ 

DO  12  1=1, N 
DO  11  J=1,N 
B(I, J)=ZERO 

11  CONTINUE 

B ( I , I ) =ONE 

12  CONTINUE 

CALL  LUDCMP(A,INDX,W,D,N) 

DO  13  J=1,N 

CALL  LUBKSB(A,INDX,B(1, J) ,N) 

13  CONTINUE 
RETURN 
END 

C 

SUBROUTINE  LUBKSB (A, INDX, B,N) 

C 

C THIS  ROUTINE  BACK  SUBSTITUTES  THE  MATRIX  'A'  (WHICH 

C HAS  BEEN  BEEN  MODIFIED  BY  THE  ROUTINE  'LUDCMP')  INTO 

C THE  VECTOR  'B'  AND  MODIFIES  IT  SO  AS  TO  FIND  THE  ROOTS 

C OF  SIMULTANEOUS  EQNS  OR  FIND  THE  INVERSE  OF  A SQUARE 

C MATRIX 

Q^k  k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  A(N,N) ,INDX(N) ,B(N) 

DATA  ZERO/ 0.0/ 

11=0 

DO  12  1=1, N 
LL=INDX(I) 

SUM=B ( LL ) 

B(LL)=B(I) 

IF(II.NE.O)THEN 

DO  11  J=II,I-1 
SUM=SUM-A ( I , J ) *B ( J ) 

11  CONTINUE 

ELSE IF ( SUM. NE . ZERO ) THEN 
II=I 
ENDIF 
B ( I ) =SUM 

12  CONTINUE 
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DO  14  I=N,1,-1 
SUM=B ( I ) 

IF(I.LT.N)THEN 

DO  13  J=I+1,N 
SUM=SUM-A ( I , J ) * B ( J ) 

13  CONTINUE 
ENDIF 

B(I)=SUM/A(I,I) 

14  CONTINUE 
RETURN 
END 

C 

SUBROUTINE  LUDCMP ( A, INDX, W, D , N) 

C 

C THIS  ROUTINE  DECOMPOSES  THE  MATRIX  'A'  INTO  LOWER  AND 

C UPPER  TRIANGULAR  MATRICES 

*★★*★*★★★****★**★**★★★★****★★*****★*★*  **************  ★**  * 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q^iddcide  ic  icicicicicit  fcicfc  icicicit  it  iticicit  icicicicicicicicicicit  ic  ic  i(  it  ic  ftidddcick  ic  icick  ic  ic  icic  :k 

DIMENSION  A(N,N)  ,INDX(N)  ,W(N) 

DATA  TINY , ZERO , ONE / 1 . OD-2 0 , 0 . 0 , 1 . 0/ 

D=ONE 

DO  12  1=1, N 
AAMAX=ZERO 
DO  11  J=1,N 

IF(DABS(A(I, J) ) .GT.AAMAX)AAMAX=DABS(A(I, J) ) 

11  CONTINUE 

I F ( AAMAX . EQ . ZERO ) THEN 

WRITE {*,*)' SINGULAR  MATRIX ' 

STOP 

ENDIF 

W(I)=ONE/AAMAX 

12  CONTINUE 

DO  19  J=1,N 
IF( J.GT.1)THEN 

DO  14  1=1, J-1 


SUM=A(I, J) 
IF(I.GT.1)THEN 


DO  13  K=1,I-1 

SUM=SUM-A(I,K)*A(K, J) 

13 

CONTINUE 

A(I, J)=SUM 

ENDIF 

14 

CONTINUE 

ENDIF 

AAMAX=ZERO 
DO  16  I=J,N 
SUM=A(I, J) 

IF( J.GT.1)THEN 

DO  15  K=1,J-1 
SUM=SUM-A  ( I , K ) A ( K , J ) 

15  CONTINUE 

A(I, J)=SUM 

ENDIF 

DUM=W  ( I ) *DABS  ( SUM ) 

IF ( DUM . GE . AAMAX ) THEN 
IMAX=I 
AAMAX=DUM 
ENDIF 

16  CONTINUE 

IF( J.NE.IMAX)THEN 
DO  17  K=1,N 
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DUM=A(IMAX,K) 

A(IMAX,K)=A(J,K) 

A( J,K)=DUM 

17  CONTINUE 

D=-D 

W(IMAX)=W(  J) 

ENDIF 

INDX(J)=IMAX 

IF(J,NE.N)THEN 

IF(A(J, J) .EQ.ZERO)A( J, J)=TINY 
DUM=ONE/A(J, J) 

DO  18  I=J+1,N 
A(I, J)=A(I, J)*DUM 

18  CONTINUE 
ENDIF 

19  CONTINUE 

IF(A(N,N) .EQ.ZERO)A(N,N)=TINY 

RETURN 

END 

C 

SUBROUTINE  OBFOR ( GLK, DISP , RINTF , EXTF , NEQ ) 

C 

C THIS  ROUTINE  CALCULATES  THE  OUT -OF -BALANCE  FORCES  IN 

C THE  PILE  GROUP  SYSTEM 

Qit  it  icit  icit  icit  icit  it  ic  it  it  it  rk  it  it  icit  it  ickit  it  it  it  ft  it  it  it  icit  if  it  icic  it  ir  icicit  iticit  icicit  icicicicicicicit  icit  it 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qit  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

DIMENSION  GLK(NEQ,NEQ) ,DISP(NEQ) ,RINTF(NEQ) ,EXTF(NEQ) 
DATA  ZERO,RNONE/0,DO,-1.DO/ 

DO  40  1=1, NEQ 
SUM=ZERO 
DO  20  K=1,NEQ 
SUM=SUM+GLK (I,K)*DISP(K) 

20  CONTINUE 
RINTF ( I ) =SUM 

40  CONTINUE 

CALL  ADD V( RINTF, EXTF, RNONE, NEQ) 

RETURN 

END 

C 

SUBROUTINE  PRINTF ( D I SP , LMPSP , PY , PCOOR , OBF , 

+SPSP , EKPT , EKPB , PSPF , PF , SPRF , SF , NPEL , NEQ , 

+NNPA, NNP , NNPAS , NPA, NFLXAS , KFLG ) 

C 

C THIS  ROUTINE  CALCULATES  AND  PRINTS  THE  ELEMENT  FORCES 

C FOR  ALL  ELEMENT  TYPES  CONSTITUTING  THE  PILE  GROUP 

C SYSTEM 

(2  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  ic  it  it  it  it  it  it  it  it  icit 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

COMMON/OUTPUT/NUOl , NU02 

COMMON/ PILE /TPL , E , RINER , AREA , DI A , X , ELENP , KCYC , 
+KSOIL,GSE,CL 

DIMENSION  DISP(NEQ) , LMPSP ( NFLXAS ) ,PY( 17, 6) , 

+PCOOR ( NNP , 3 ) , OBF ( NEQ ) , SPSP ( NFLXAS , NFLXAS ) , 

+PSPF ( NFLXAS ) , PF ( NPEL , 10 ) , SPRF ( NFLXAS ) , 

+LM(10) ,EKPT(10,10) ,EKPB(10,10) ,SF(NPA,5) 

CHARACTER* 70  NAME 
DATA  ZERO/ 0.0/ 

REWIND  NU02 
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DO  40  K=1,NPEL 
READ(NU02) (LM( I ) , 1=1, 10) 

DO  50  1=1,10 
PF(K,I)=ZERO 
DO  50  J=l,10 
J J=LM ( J ) 

IF (MOD (K, 16) .EQ.1)THEN 

PF(K,I)=PF(K,I)+EKPT(I, J)*DISP(JJ) 

ELSE 

PF(K,I)=PF(K,I)+EKPB(I, J)*DISP(JJ) 

ENDIF 

50  CONTINUE 

40  CONTINUE 

DO  30  I=1,NNPAS 

I1=(I-1)*2+1 

I2=(I-l)*2+2 

PSPF(Il)=ZERO 

PSPF(I2)=ZERO 

DO  30  J=1,NNPAS 

J1=(J-1)*2+1 

J2=(J-l)*2+2 

JJ1=LMPSP( Jl) 

JJ2=LMPSP( J2) 

PSPF (II) =PSPF (II) +SPSP ( I 1 , Jl ) *DISP ( J Jl ) + 
+SPSP(I1, J2)*DISP( JJ2) 

PSPF ( 12 ) =PSPF ( 12 ) +SPSP ( 12 , Jl ) *DISP ( JJl ) + 
+SPSP ( 12 , J2 ) *DISP ( JJ2 ) 

30  CONTINUE 
NI=0 

DO  32  I=1,NPEL 
IF(MOD(I,16) .EQ.1)THEN 
NI=NI+1 

SF(NI,1)=PF(I,1) 

SF(NI,2)=PF(I,2) 

SF(NI,3)=PF(I,3) 

SF(NI,4)=PF(I,4) 

SF(NI,5)=PF(I,5) 

ENDIF 

32  CONTINUE 

IF (X.EQ. ZERO) THEN 
NI=0 

DO  33  I=1,NNPAS 
IF(MOD(I,17) .EQ.1)THEN 
NI=NI+1 
I1=(I-1)*2+1 
I2=(I-l)*2+2 

SF(NI,2)=SF(NI,2)+PSPF(I1) 

SF ( NI , 3 ) =SF ( NI , 3 ) +PSPF ( 12 ) 

ENDIF 

33  CONTINUE 
ENDIF 
TFZZ=ZERO 
TFXX=ZERO 
TFYY=ZERO 
TMXX=ZERO 
TMYY=ZERO 

DO  55  NI=1,NPA 
TFZZ=TFZZ+SF (NI , 1 ) 

TFXX=TFXX+SF (NI , 2 ) 

TFYY=TFYY+SF ( NI , 3 ) 

TMXX=TMXX+SF ( NI , 4 ) 

55  TMYY=TMYY+SF(NI,5) 

WRITE (NUOl, 556) 

CALL  MPRINT(SF,NPA,5,NU01,NPA,5,3) 
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WRI TE  ( NUOl , 5 5 7 ) TFZ  Z , TFXX , TFY Y , TMXX , TMYY 
IF ( KFLG . EQ . 0 ) THEN 

NAME* 'DISPLACEMENTS: ' 

WRITE ( NUOl , 20 ) NAME 

CALL  PRNTV2(DISP,NEQ,NUOl,0) 

ENDIF 

NAME* ' SUMMARY  OF  DISPLACEMENTS  AT  TOP  OF  PILE  GROUP:' 

WRITE ( NUOl , 201 ) NAME 

CALL  PRNTV2(DISP,NEQ,NU01,1) 

IF ( KFLG . EQ . 0 ) THEN 

NAME* ' OUT  OF  BALANCE  FORCES : ' 

WRITE ( NUOl , 2 1 ) NAME 

CALL  PRNTV2(OBF,NEQ,NUOl,0) 

ENDIF 

CALL  OBFMAX(OBF,NEQ,FZZMAX,FXXMAX,FYYMAX, 

+BMXMAX  , BMYMAX ) 

WRITE (NUOl,*) 

WRITE (NUOl, 25 ) FZZMAX, FXXMAX, FYYMAX, BMXMAX, BMYMAX 
WRITE (NUOl,*) 

IF ( KFLG . EQ . 0 ) THEN 

261  FORMAT(/,lX,A,/,T23, 'X' ,T35, 'Y' ) 

NAME*'NF+FF  SOIL  SPRINGS  RESISTANCES  (F):' 

WRITE ( NUOl , 2 6 1 ) NAME 

CALL  PRNTVl ( PSPF , NFLXAS , NUOl ) 

WRITE ( NUOl , * ) 

ENDIF 

WRITE ( NUOl ,35) SUMV ( PSPF , NFLXAS , 1 ) , SUMV ( PSPF , NFLXAS , 0 ) 
WRITE ( NUOl ,75) TFXX , TFYY 
IF ( KFLG . EQ . 0 ) THEN 

CALL  SPRGF ( DISP , SPRF , LMPSP , PY , PCOOR, NEQ , 

+NNPA , NNP , NFLXAS ) 

NAME*'NEAR  FIELD  SOIL  RESISTANCE  (F):' 

WRITE (NUOl , 261 ) NAME 

CALL  PRNTVl (SPRF, NFLXAS, NUOl) 

NAME* ' PILE  ELEMENT  FORCES : ' 

WRITE ( NUOl , 45 ) NAME 

CALL  MPR1NT(PF,NPEL,10,NU01,16,5,4) 

ENDIF 

WRITE(NU01,171) 

WRITE(NU01,1751) 

NPIL=0 

DO  191  I*1,NPEL,16 

NPIL=NPIL+1 

AFZMAX*ZERO 

DO  181  J*I,I+15 

SIGN*1.D0 

IF(PF(J,1) .LT.ZERO)SIGN*-1.DO 
F*ABS(PF(J,1) ) 

IF ( F . GT . AFZMAX ) THEN 
AFZMAX=F 
SIGMAX=SIGN 
ENDIF 

181  CONTINUE 

WRITE  ( NUOl , 1801 ) NPIL , SIGMAX*AFZMAX 
191  CONTINUE 

WRITE ( NUOl ,* ) 

WRITE (NUOl, 172) 

WRITE(NU01,176) 

NPIL*0 

DO  192  I*1,NPEL,16 

NPIL*NPIL+1 

AFXMAX*ZERO 

DO  182  J=I,I+15 

SIGN*1.D0 


193 


IF(PF(J,2) .LT.ZERO)SIGN=-1.DO 
F=ABS(PF(J,2) ) 

I F ( F . GT . AFXMAX ) THEN 
SIGMAX=SIGN 
IMAX=J 
AFXMAX=F 
END  IF 

182  CONTINUE 

WRITE (NUOl , 180 )NPIL, IMAX, ZNODE ( IMAX+NPIL-1 ) 
+ZNODE ( IMAX+NPIL ) , SIGMAX*AFXMAX 

192  CONTINUE 
WRITE (NUOl,*) 

WRITE (NUOl, 173) 

WRITE (NUOl, 176) 

NPIL=0 

DO  193  I=1,NPEL,16 

NPIL=NPIL+1 

AFYMAX=ZERO 

DO  183  J=I,I+15 

SIGN=1.D0 

IF(PF(J,3) .LT.ZERO)SIGN=-1.DO 
F=ABS(PF( J,3) ) 

IF ( F . GT . AFXMAX ) THEN 
IMAX=J 
AFYMAX=F 
SIGMAX=SIGN 
END  IF 

183  CONTINUE 

WRITE ( NUOl , 180 ) NPIL, IMAX, ZNODE ( IMAX+NPIL-1 ) 
+ZNODE ( IMAX+NPIL) , SIGMAX*AFYMAX 

193  CONTINUE 
WRITE ( NUOl , * ) 

WRITE (NUOl, 174) 

WRITE (NUOl, 177) 

NPIL=0 

DO  194  I=1,NPEL,16 

NPIL=NPIL+1 

ABXMAX=ZERO 

DO  184  J=I,I+15 

SIGN=1.D0 

IF(PF(J,4) ,LT.ZERO)SIGN=-1.DO 
B=ABS(PF( J,4) ) 

I F ( B . GT . ABXMAX ) THEN 
IMAX=J 
ABXMAX=B 
SIGMAX=SIGN 
ENDIF 

184  CONTINUE 

WRITE (NUOl, 190) NPIL, IMAX, ZNODE ( IMAX+NPIL-1 ) 
+SIGMAX* ABXMAX 

194  CONTINUE 
WRITE (NUOl,*) 

WRITE (NUOl, 175) 

WRITE (NUOl, 177) 

NPIL=0 

DO  195  I=1,NPEL,16 

NPIL=NPIL+1 

ABYMAX==ZERO 

DO  185  J=I,I+15 

SIGN=1.D0 

IF(PF( J,5) .LT.ZERO)SIGN=-1.DO 
B=ABS(PF( J,5) ) 

IF ( B . GT . ABYMAX ) THEN 
IMAX=J 


185 

195 

25 

35 

45 

75 

171 

172 

173 

174 

175 

175 

176 

177 

180 

180 

190 

76 

556 

557 

20 
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2^YMAX=B 
SIGMAX=SIGN 
END  IF 
CONTINUE 

WRITE ( NUOl , 190 ) NPIL, IMAX, ZNODE ( IMAX+NPIL-1 ) , 
+SIGMAX*ABYMAX 
CONTINUE 
WRITE (NUOl, 76) 

RETURN 

FORMAT(/,lX, ' SUMMARY  OF  ABS  MAXIMUM  OUT-OF-BALANCE' 
+, 'FORCES:  ',/, 


+T15, 'FZZ  = 
+T15, 'FXX  = 
+T15, 'FYY  = 
+T15, 'MXX  = 
+T15, 'MYY  = 


(F)',/, 
(F)',/, 
(F)',/, 
(F-L) ',/, 
(F-L) ') 


' ,E10.3,2X, 

' ,E10.3,2X, 

' ,E10.3,2X, 

' ,E10.3,2X, 

' ,E10.3,2X, 

FORMAT(/,lX, 

+' CHECK:  TOTAL  LOAD  CARRIED  BY  THE  SOIL',/, 

+'  (SUM  OF  NF+FF  SOIL  SPRINGS  RESISTANCES)',/, 

+'  IN  X DIRECTION  = ' ,E10. 3 , 2X, ' (F) ' , ^ 

+'  IN  Y DIRECTION  = ' ,E10 . 3 , 2X, ' (F) ' , / ) 

FORMAT  ( / , IX,  A,  / , T4 , .'  PILE  ' , T20 , 

+'FZZ',T32, 'FXX',T44, 'FYY',T56, 'MXX',T68, 'MYY',/, 

+'  ELEMENT#' ,T20, ' (F) ' ,T32, 

+' (F) ' ,T44, ' (F) ' ,T54, ' (F-L) ' ,T66, ' (F-L) ' ) 

FORMAT ( IX , 

+'  TOTAL  LOAD  APPLIED  AT  TOP  OF  PILE  GROUP',/, 


IN  X DIRECTION  = ',E10.3,2X, 
IN  Y DIRECTION  = ',E10.3,2X, 


(F) 

(F) 


) 


+ ' 

+ ' 

FORMAT ( / , 

+1X, 'SUMMARY  OF  PILE  ELEMENT  FORCES:',/, 

+1X,  ' ',//, 

+1X, 'TI  MAX  AXIAL  FORCE  (F)',/, 

+1X,  ' ',/) 

FORMAT ( / , 

+1X,'2.  MAX  SHEAR  FORCE  IN  X DIRECTION  (F)',/, 

+1X,  ' ',/) 

FORMAT ( / , 

+1X,'3.  MAX  SHEAR  FORCE  IN  Y DIRECTION  (F)',/, 

+1X,  ' ',/) 

FORMAT ( / , 

+1X,'4.  MAX  BENDING  MOMENT  ABOUT  X AXIS  (F-L)',/, 

+1X,  ' ',/) 

FORMAT ( / , 

+1X, '5.  MAX  BENDING  MOMENT  ABOUT  Y AXIS  (F-L)',/, 

+1X,  ' ',/) 

FORMAT(T10, 'PILE' ,T22, 'AXIAL' , /,T13, '#' ,T22,  'FORCE ' , / ) 
FORMAT(T10, 'PILE' ,T22, 'PILE' ,T36, 'AT' ,T48, 'AT' , 

+/,T13, '#' ,T21, 'ELEM#' ,T33, 'DEPTH' ,T45, 'DEPTH'T59, 'MAX' 
+/,T29, 'BELOW  CAP' ,T41, 'BELOW  CAP' ,T60, 'SF' , / ) 
FORMAT(T10, 'PILE' ,T22, 'PILE' ,T36, 'AT' , 

+/,T13, '#' ,T21, 'ELEM#' ,T33, 'DEPTH' ,T47, 'MAX' , 

+/,T29, 'BELOW  CAP ' ,T48, 'BM' , / ) 

FORMAT ( IX, 112 , IX, IF12 . 3 ) 

FORMAT (IX, 2112, 2F12. 3, IX, Ell. 4) 

FORMAT (IX, 2112, F12. 3, IX, Ell. 4) 

FORMAT ( IX , 

FORMAT(/,lX, 'APPLIED  LOADS: ' ,/,T6, 'PILE#' , 

+T18, 'FZZ' ,T28, 'FXX' ,T38, 'FYY' ,T48, 'MXX' ,T58, 'MYY' ) 
FORMAT (/, 2 X, 'TOTAL  = ',5E10.3) 

F0RMAT(/,1X,A,/,1X, 'PILE  NODE#' ,T21, 'DZZ' ,T33, 'DXX' , 
+T45, 'DYY' ,T53, 'THETAXX' ,T65, 'THETAYY' , /,T21, 
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+' (L) ' ,T33, ' (L) ' fT45, ' (L) ' ,T55, ' (RAD) ' ,T67, 

+' (RAD) ' ) 

201  FORMAT(/,lX,A,/,T7, 'PILE#' ,T21, 'DZZ' ,T33, 

+'DXX' ,T45, 'DYY' ,T53, 'THETAXX' ,T65, 'THETAYY' , /,T21, 

+' (L) ' ,T33, ' (L) ' ,T45, ' (L) ',T55, ' (RAD) ',T67, ' (RAD) ' ) 

21  FORMAT(/,lX,A,/,lX, 'PILE  NODE#' ,T21, 'FZZ ' ,T33, 

+'FXX' ,T45, 'FYY' ,T57, 'MXX' ,T69, 'MYY' ,/,T21, '(F)', 

+T33, ' (F) ' ,T45, ' (F) ' ,T55, ' (F-L) ' ,T67, ' (F-L) ' ) 

END 

C 

SUBROUTINE  PRNTIT(NUO) 

C 

C THIS  ROUTINE  PRINTS  THE  TITLE  PAGE  OF  OUTPUT 

Qit  it  it  ic  if  It  it  ft  it  It  it  it  it  rk  rk  ic  ic  if  it  ic  ic  ic  fc  ic  fc  it  fc  rk  icit  it  it  it  i(  it  it  icick  icit  icicicit  it  icfc  it  * "icicit  it  icicic  ic  ^ 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qk  k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

COMMON / P I LE / TPL , E , RINER , ARE A , D I A , X , ELENP , KCYC , 
+KSOIL,GSE,CL 
COMMON/SOIL/GM, RNU 

COMMON/TIT/NPILE , NPA, MAXITN, TOLER, NDINC, 

+TSTIF,KFLG, UNITS 
CHARACTER*70  UNITS 

WRITE (NUO, 10 ) UNITS , KFLG, TPL, E, RINER, AREA, D I A, X, KCYC 
WRITE ( NUO, 11 ) NPILE , NPA, MAXITN, TOLER, KSOIL , GM, RNU , TSTIF 

10  FORMAT ( 

+ T27, L P G ,//, 

+ T5,'THIS  PROGRAM  CALCULATES  THE  LATERAL' 

+ ,'  LOAD-DEFLECTION  BEHAVIOR' ,/ ,T5, 'OF  A PILE  GROUP' 

+ ' USING  FEM  TECHNIQUE.',//, 

+ 2X , '*******************************' 

'kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkf  ^ J j ^ 

+ T33, 'I  N P U T' ,//, 

+ T5, 'UNITS  ARE',T51,'  : ' ,h.,  I / , 

+ T5,'CODE  FOR  PRINT  OUT  ',T47,'KFLG  = ',110,//, 

+ T5, 'TOTAL  PILE  LENGTH  ',T50,'L  = ' ,G10.3,T67, ' (L) ' , /, 
+ T5, 'YOUNG'S  MODULUS  OF  PILE  ',T50,'E  = ',G10.3, 

+ T67, ' (F/L"2) ',/, 

+ T5, 'MOMENT  OF  INERTIA  OF  PILE  ',T50,'I  = ',G10.3, 

+ T67, ' (L-4) ',/, 

+ T5,'AREA  OF  CROSS  SECTION  OF  PILE  ',T50,'A  = ',G10.3, 
+ T67,  ' (L''2) ',/, 

+ T5,'DIA  OF  PILE  ',T48,'DIA  = ' ,G10. 3 , T67 , ' (L) ' , // , 

+ T5 ,' PROJECTION  OF  PILE  GROUP  ABOVE  ',/, 

+ T12, 'GROUND  LEVEL  ',T50,'X  = ' ,G10.3,T67, ' (L) ' , /, 

+ T5,'#  OF  CYCLES  OF  LOAD  APPLIED  ',T47,'KCYC  = ',110) 

11  FORMAT (/, T5, '#  OF  PILES  IN  THE  GROUP  ',T46, 

+ 'NPILE  = ',110,/, 

+ T5,'#  OF  ASYMMETRIC  PILES  IN  THE  GROUP', T48, 

+ 'NPA  = ',110,//, 

+ T5, 'MAXIMUM  # OF  ITERATIONS  ' ,T45, 'MAXITN  = ',110,/, 

+ T5, 'TOLERANCE  ',T46, 'TOLER  = ' ,G10. 3 , T67 , ' (L) ' // , 

+ T5,'SOIL  TYPE  ',T46, 'KSOIL  = ',110,/, 

+ T5, 'SHEAR  MODULUS  OF  SOIL  ',T50,'G  = ',G10.3, 

+ T67, ' (F/L-2) ',/, 

+ T5, 'POISSONS  RATIO  OF  SOIL  ',T48,'RNU  = ',G10.3,//, 

+ T5,'PILE  TIP  STIFFNESS' ,T46, 'TSTIF  = ',G10.3, 

+ T67, ' (F/L) ' ) 

RETURN 

END 

C 

SUBROUTINE  PRNTVI ( lA, N, NAME, NUO) 

C 
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C THIS  ROUTINE  PRINTS  AN  INTEGER  VECTOR  OF  SIZE  N 

**  4r  * 4r  *****  4r  *******************  4r  *********  ***  ***  :Ar  ★ 

DIMENSION  IA(N) 

DO  10  1=1, N 

IF (MOD (I, 16) .EQ,l,AND.I.NE.l)WRITE(NUO,*) 
WRITE(NUO,15)I,IA(I) 

10  CONTINUE 

RETURN 

15  FORMAT ( 19 , 2X, 110 ) 

END 

C 

SUBROUTINE  SECSTF ( D I SP , FLPSP , STPSP , PY , INDX , W , 

+PCOOR , LM , SPRF , NNPA , NNPAS , NNP , NFLXAS , NEQ ) 

C 

C THIS  ROUTINE  CALCULATES  THE  SECANT  STIFFNESS  OF  SOIL 

C SPRINGS 

Q*********************************************************** 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q*********************************************************** 

DIMENSION  DISP(NEQ) ,FLPSP(NFLXAS, NFLXAS) , 

+STPSP ( NFLXAS , NFLXAS ) , PY ( 17 , 6 ) , INDX ( NFLXAS ) , 

+W ( NFLXAS ) , PCOOR ( NNP , 3 ) , LM ( NFLXAS ) , SPRF ( NFLXAS ) 

DATA  ZERO/ 0.0/ 

WRITE (*,*)'  FORMING  THE  SOIL  FLEXIBILITY  MATRIX' 

CALL  SPRGF ( D I SP , SPRF , LM , PY , PCOOR , NEQ , NNPA , NNP , NFLXAS ) 

BIG=ZERO 

DO  10  1=1, NNPAS 

I1=(I-1)*2+1 

I2=(I-l)*2+2 

II1=LM(I1) 

II2=LM(I2) 

IF(SPRF(I1) ,EQ.ZERO)THEN 
GO  TO  10 

ELSE 

FLPSP(I1,I1)=FLPSP(I1,I1)+DISP(II1)/SPRF(I1) 
IF(FLPSP(I1,I1) .GT.BIG)BIG=FLPSP(I1,I1) 

END  IF 

IF (SPRF (12) . EQ . ZERO ) THEN 
GO  TO  10 

ELSE 

FLPSP (12,12) =FLPSP (12,12) +DISP ( II2 ) /SPRF ( 12 ) 

IF ( FLPSP ( 12 , 12 ) . GT . BIG) BIG=FLPSP ( 12 , 12 ) 

END  IF 

10  CONTINUE 

BIG=BIG*1000.D0 
DO  20  1=1, NNPAS 
I1=(I-1)*2+1 
I2=(I-l)*2+2 
II1=LM(I1) 

II2=LM(I2) 

IF ( SPRF ( II ) . EQ. ZERO) FLPSP (11,11) =FLPSP (11,11) +BIG 
IF ( SPRF ( 12 ) . EQ . ZERO ) FLPSP (12,12) =FLPSP (12,12) +BIG 
20  CONTINUE 

WRITE (*,*)'  INVERTING  THE  SOIL  FLEXIBILITY  MATRIX' 

CALL  INVERT ( FLPSP , STPSP , INDX , W , NFLXAS ) 

RETURN 

END 

C 

SUBROUTINE  SOLVE (A, B, INDX, W,N) 

C 

C THIS  ROUTINE  SOLVES  SIMULTANEOUS  EQNS  A * X = B . THE 

C VECTOR  'X'  IS  OVERWRITTEN  ON  THE  VECTOR  'B'. 


197 


Qicic  -k  ic  it  icit  fc  icicicicit  it  icicicicicit  it  icit  it  it  icicicicic  ic  fcicicicicicicicicic’kicicicicicit  it  icicicicicit  "k  ^ icit 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qit  it  it  it  it  it  it  it  it  it  it  it  it  k it  it  it  it  it  k it  k it  it  k it  it  it  k k it  it  it  it  k it  it  it  k it  it  it  it  it  it  it  it  it  k it  it  k it  k it  k it  it  k 

DIMENSION  A(N,N)  ,B(N)  ,INDX(N)  ,W(N) 

CALL  LUDCMP(A,INDX,W,D,N) 

CALL  LUBKSB(A,INDX,B,N) 

RETURN 

END 

C 

SUBROUTINE  SPRGF ( DISP , SPRF , LM, PY , PCOOR, NEQ , 

+NNPA , NNP , NFLXAS ) 

C 

C THIS  SUBROUTINE  CALCULATES  THE  SOIL  SPRING  FORCES. 

C THE  SPRING  FORCES  ARE  HYPERBOLIC  FUNCTIONS  OF  THE 

C SPRING  DISPLACEMENTS  (AS  PROPOSED  BY  O'NEILL  ET  AL. ) 

Qk  k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qk  k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

DIMENSION  DISP(NEQ) ,SPRF(NFLXAS) ,LM(NFLXAS) ,PY(17,6) , 
+PCOOR ( NNP , 3 ) 

COMMON /PILE/TPL,E,RINER, AREA , D I A , X , ELENP , KCY C , 
+KSOIL,GSE,CL 
DATA  ZERO,PT5/0.0,0.5/ 

J=16 

IF(X.EQ.ZERO) J=17 
NI=0 

DO  10  I=1,NNPA 

IF(X.NE.ZERO.AND.MOD(I,17) .EQ.l)GO  TO  10 
NI=NI+1 

NI1=(NI-1)*2+1 
NI2=(NI-l)*2+2 
NMOD=MOD(NI, J) 

IF  (NMOD . EQ.  1 . OR.  NMOD . EQ.  0 ) THEN 
ELEN=ELENP*PT5 

ELSE 

ELEN=ELENP 
END  IF 

II1=LM(NI1) 

II2=LM(NI2) 

Y1=DISP(II1) 

Y2=DISP(II2) 

IMOD=MOD (1,17) 

IF ( IMOD . EQ . 0 ) IMOD=17 
RK=PY ( IMOD , 2 ) 

IF ( KSOIL . EQ . 0 ) THEN 

SPRF (Nil ) =RK*Y1*ELEN 
SPRF (NI2 ) =RK*Y2*ELEN 
ELSEIF ( KSOIL . EQ . 1 ) THEN 
Z=PCOOR(I,3)-GSE 
SPRF(NI1)=RK*Y1*Z*ELEN 
SPRF(NI2)=RK*Y2*Z*ELEN 
ELSE 

PHI=PY(IMOD,l) 

GAMMAD=PY ( IMOD , 3 ) 

Z=PCOOR(I,3)-GSE 
IF (PHI. EQ. ZERO) THEN 

I F ( CL . EQ . ZERO ) CL=CRITL ( PY , PCOOR , NNP ) 

C=PY ( IMOD , 4 ) 


o o 
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E50=PY(IMOD,5) 

E100=PY(IMOD,6) 

P1=PCLAY(C,E50,E100,Z,Y1) 

P2=PCLAY(C,E50,E100,Z,Y2) 

ELSE 

P1=PSAND ( PHI , RK, GAMMAD , Z , Y1 ) 
P2=PSAND ( PHI , RK, GAMMAD , Z , Y2 ) 


ENDIF 

SPRF (Nil) =P1 *ELEN 
SPRF ( NI 2 ) =P2  *ELEN 
ENDIF 

10  CONTINUE 
RETURN 
END 

C 

SUBROUTINE  TIP(STRK,TSTIF,NEQ) 

C 

C THIS  ROUTINE  INCORPORATES  THE  PRESCRIBED  PILE  TIP 

C DISPLACEMENTS 

Q^it  "k  ic  it  it  ic  ic  fc  it  it  ic  it  it  ic  it  fc  it  it  it  "k  fc  it  It  it  idcidcic  fc  if  icit  it  iticic  icic  -k  ic  iticiicit  icick  icicicit  ic  icfcicic  "k  "k 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  STRK ( NEQ , NEQ ) 

DO  10  1=1, NEQ 

IF (MOD ( I , 85 ) . EQ. 81 ) STRK( I , I ) =STRK( I , I ) +TSTIF 
10  CONTINUE 

RETURN 
END 

C 

SUBROUTINE  VREAD ( lA, N, NOT ) 

THIS  ROUTINE  READS  INTEGER  VECTOR  A OF  SIZE  N 

kititititititititititititititititititititititititititititkititititicitititicititititititicicititititiciritititicitk 

DIMENSION  IA(N) 

READ (NOT,*) (IA(I) ,I=1,N) 

RETURN 
END 

C 

SUBROUTINE  ZEROM(A,N,M) 

C 

C THIS  ROUTINE  ZEROS  A MATRIX  OF  SIZE  N X M 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qk  k k k k it  it  it  k k it  k it  k k it  k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

DIMENSION  A(N,M) 

DATA  ZERO/ 0.0/ 

DO  10  J=1,M 
DO  10  1=1, N 
A(I,J)=ZERO 
10  CONTINUE 

RETURN 
END 


C 


o o o o o o 


APPENDIX  E 

FORTRAN  SUBROUTINES  COMMON  TO  LPG-VERSIONS  1 AND  2 


SUBROUTINE  ADDV( A, B , S, N) 

THIS  ROUTINE  ADDS  TWO  VECTORS  'A'  AND  'B'.  VECTOR  'B' 
IS  FACTORED  BY  A SCALAR  'S'  BEFORE  ADDING 

icicicicicit’k'k’kititiric'kiciticitititititicicitititititicic'kititiciciciciticiriciticititiciticiticicicic'kifkic 

DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 
CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qic  ic  fc  icicit  itit  icicicit  icic  -k  icit  fc  fcic-k  it  icit  icit  icic  it  it  ic  -k  it  ic  -k  icicic  ic  ic  it  ir  it  ic  -k  idcidt  icir  icic  it  icic  i< 

DIMENSION  A(N),B(N) 

DO  300  1=1, N 
300  A(I)=A(I)+B(I)*S 
RETURN 
END 

C 

SUBROUTINE  COPYM(A, B, NR, NC) 

C THIS  ROUTINE  COPIES  THE  CONTENTS  OF  MATRIX  'A'  INTO 

C MATRIX  ' B ' 

Q^it  it  it  it  it  it  it  ik  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q^it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

DIMENSION  A(NR,NC) ,B(NR,NC) 

DO  10  J=1,NC 
DO  10  1=1, NR 
10  B(I, J)=A(I, J) 

RETURN 

END 

C 

FUNCTION  CRITL(PY,PCOOR,NNP) 

C 

C THIS  ROUTINE  CALCULATES  THE  CRITICAL  LENGTH  OF  PILE  AS 

C SUGGESTED  BY  O'NEILL 

Qit  it  it  it  it  it  it  * it  it  it  it  it  it  it  it  it  it  it  it  it  k it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  k it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  k 

COMMON/ PILE/TPL , E , RINER , AREA , DI A , X , ELENP , KCYC , 
+KSOIL,GSE,CL 

DIMENSION  PY(17,6) ,PCOOR(NNP,3) 

DATA  ZERO, TOLER, PT2 86, THREE, FIVE 
+/0. 0,0. 001, 0.286, 3.0, 5.0/ 

CLMAX=TPL-GSE 
CRITL=FIVE*DIA 
DO  10  KOUNT=1,100 
NI=0 

ESSUM=ZERO 
DO  20  1=1,17 

IF(I.EQ.l.AND.X.NE.ZERO)GO  TO  20 
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Z=PCOOR(I,3)-GSE 

NI=NI-Kl 

IF ( Z . LT . CRITL ) THEN 
ZOLD=Z 

IF(PY(I,1) .EQ. ZERO) THEN 
ESOLD=ESTABL ( PY ( I , 4 ) ) 

ELSE 

ESOLD=PY(I,2)*Z 

ENDIF 

ESSUM=ESSUM+ESOLD 

ELSE 

ZNEW=Z 

IF(PY(I,1) .EQ. ZERO) THEN 
ESNEW=ESTABL ( PY ( I , 4 ) ) 

ELSE 

ESNEW=PY(I,2)*Z 

ENDIF 

ESCL=ESOLD+ ( ESNEW-ESOLD ) / ( ZNEW-ZOLD ) * ( CRITL-ZOLD ) 
ESSUM=ESSUM+ESCL 
GO  TO  30 
ENDIF 

20  CONTINUE 

30  ESAVG=ESSUM/DBLE ( NI ) 

CRITLN=THREE*  (E*RINER/ESAVG/DSQRT (DIA)  ) ’»^*PT286 
ERR=DABS { ( CRITLN-CRITL ) /CRITLN ) 

CRITL=CRITLN 

IF ( CRITL . GT . CLMAX ) CRITL=CLMAX 
I F ( ERR . LE . TOLER ) RETURN 
10  CONTINUE 

RETURN 
END 

C 

SUBROUTINE  ELSTFP (EKP, NLDOF, K) 

C 

C THIS  ROUTINE  CALCULATES  THE  ELEMENT  STIFFNESS  OF  A 

C PILE  SEGMENT 

C 

Q***ilr*********^^*************ilr***********************^*****^ 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C*  ****★****★*★*★***★★★****★★  ******************************  * 

COMMON/PILE/TPL , E , RINER, AREA, DIA, X, ELENP , KCYC, 
+KSOIL,GSE,CL 
DIMENSION  EKP ( NLDOF , NLDOF ) 

DATA  ZERO, TWO , FOUR , SIX, RN12/0. 0,2. 0,4. 0,6. 0,12.0/ 

ELEN=ELENP 

IF(K.EQ.0)ELEN=X 

AEL=AREA*E/ELEN 

EI=E*RINER 

EIL=EI/ELEN 

EIL2=EIL/ELEN 

EIL3=EIL2/ELEN 

EKP (1,1) =AEL 

EKP(l,2)=ZERO 

EKP (2,2) =RN12  *EIL3 

EKP(l,3)=ZERO 

EKP(2,3)=ZERO 

EKP (3,3) =RN12  *EIL3 

EKP(l,4)=ZERO 

EKP(2,4)=ZERO 

EKP (3,4) =-SIX*EIL2 

EKP (4,4) =FOUR*EIL 

EKP(l,5)=ZERO 
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EKP(2,5)=SIX*EIL2 
EKP(3,5)=ZERO 
EKP(4,5)=ZERO 
EKP (5,5) =FOUR*EIL 
EKP (1,6) =-AEL 
DO  10  1=2,5 
10  EKP ( I , 6 ) =ZERO 

EKP (6,6) =AEL 
EKP(l,7)=ZERO 
EKP (2,7) =-RN12  *EIL3 
EKP(3,7)=ZERO 
EKP(4,7)=ZERO 
EKP (5,7) =-SIX*EIL2 
EKP(6,7)=ZERO 
EKP (7,7) =RN12  *EIL3 
EKP(l,8)=ZERO 
EKP(2,8)=ZERO 
EKP (3,8) =-RN12  *EIL3 
EKP(4,8)=SIX*EIL2 
DO  20  1=5,7 
20  EKP(I,8)=ZERO 

EKP (8,8) =RN12  *EIL3 
EKP(l,9)=ZERO 
EKP(2,9)=ZERO 
EKP ( 3 , 9 ) =-SIX*ElL2 
EKP(4,9)=TWO*EIL 
DO  30  1=5,7 
30  EKP(I,9)=ZERO 

EKP (8,9) =SIX*EIL2 
EKP (9,9) =FOUR*EIL 
EKP(1,10)=ZERO 
EKP (2,10) =SIX*EIL2 
EKP(3,10)=ZERO 
EKP(4,10)=ZERO 
EKP (5,10) =TWO*EIL 
EKP(6,10)=ZERO 
EKP (7,10) =-SIX*EIL2 
EKP(8,10)=ZERO 
EKP(9,10)=ZERO 
EKP (10,10) =FOUR*EIL 
DO  40  J=l,9 
DO  40  I=J+1,10 
40  EKP(I, J)=EKP( J,I) 

RETURN 

END 

C 

FUNCTION  ERRMAX(ODIS,DIS,N) 

C 

C THIS  ROUTINE  CALCULATES  THE  MAXIMUM  ERROR 

C BETWEEN  THE  VECTORS  'ODIS'  AND  'DIS' 

ft  "k  ic  fc  fc  :k  rk  "k  icftidt  icicic  ic  ir  ic  ^ "kit  ic  icic  ic  icis  -k  it  icit  fc  ic  -k  icicici(  fc  ir  ic  fcic  icicicicicir  fc  icic  ic  fc  fcicicic 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qit  it  ft  it  it  it  it  it  ft  it  it  it  it  it  it  ft  it  ft  ft  it  "k  -k  it  it  ft  ft  ft  it  it  it  ft  ft  ft  it  ft  it  it  it  it  it  it  ft  ft  it  it  ft  it  it  it  it  it  it  ft  it  ft  it  it  it  k 

DIMENSION  ODIS(N) ,DIS(N) 

DATA  ZERO/ 0.0/ 

ERRMAX=ZERO 
DO  20  1=1, N 

ERR=DABS(ODIS(I)-DIS(I) ) 

20  IF ( ERR . GT . ERRMAX ) ERRMAX=ERR 

RETURN 
END 

C 


OOO  M oooo 
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FUNCTION  ESTABL(C) 

C 

C THIS  ROUTINE  RETURNS  THE  VALUE  OF  'ES  - YOUNGS  MODULUS 

C OF  SOIL'  FOR  INPUT  OF  'CU  - UNDRAINED  SHEAR  STRENGTH 

C OF  CLAY'  VALUE  AS  PER  THE  CORRELATION  SUGGESTED  BY 

C BANERJEE  AND  DAVIS 

Qit  it  it  ic  ir  ft  ic  it  it  ic  ic  it  ic  it  it  it  It  icit  it  icicit  ic  ic  ic  icit  icfc  icicic  ir  icit  ic  icrkit  icititif  ickfe  icrk  iticit  icit  * fc  ic  icic 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q^it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 

ESTABL=100.D0*C 

RETURN 

END 

C 

FUNCTION  FTABL(EIOO) 

C 

C THIS  ROUTINE  RETURNS  THE  VALUE  OF  'F  - DEGRADATION 

C FACTOR'  FOR  INPUT  OF  'ElOO  - UU  TRIAXIAL  FAILURE 

C STRAIN  OF  THE  SOIL' 

(;;****★★★★★**★*★★★★★★*★*★**********★*★*****★★****★*★*★★★***★* 
C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON /PILE/ TPL , E , RINER , AREA , D I A , X , ELENP , KCYC , 
+KSOIL,GSE,CL 
DIMENSION  EDAT(2) ,FDAT(5) 

DATA  EDAT , FDAT/0 . 02, 0. 06, 0,5, 0.33, 0.75, 0.67, 1.0/ 
IF(E100.LT.EDAT(1) )THEN 
IF ( KCYC. EQ.O) THEN 
FTABL=FDAT ( 1 ) 

ELSE 

FTABL=FDAT ( 2 ) 

END  IF 

ELSEIF (ElOO . LE . EDAT (2)) THEN 
IF ( KCYC .EQ.O) THEN 
FTABL=FDAT ( 3 ) 

ELSE 

FTABL=FDAT ( 4 ) 

END  IF 

ELSE 

FTABL=FDAT ( 5 ) 

END  IF 

RETURN 

END 

C 

SUBROUTINE  LMPEL ( LM , K , NLDOF ) 

THIS  ROUTINE  CALCULATES  THE  LOCATION  MATRIX  FOR  THE 
PILE  ELEMENTS  OF  THE  PILE  GROUP 

ititititititititititititititititititititititititititititititititititititititititititititititititititititititititititit 

COMMON/OUTPUT/NUOl , NU02 
DIMENSION  LM(NLDOF) 

KK=(K-1)*5 
DO  10  1=1, NLDOF 
0 LM(I)=KK+I 

WRITE (NU02) (LM(I) ,1=1, NLDOF) 

RETURN 
END 


SUBROUTINE  LMPSP(LM,NEQ, NLDOF) 

THIS  ROUTINE  FORMS  THE  LOCATION  MATRIX  FOR 


o o 
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C PILE-SOIL-PILE  FORCES 

Q-k  ic  it  it  it  ic  it  it  it  it  i(  it  it  it  it  it  it  it  it  -k  -k  if  it  -k  icick  it  ic  it  icit  it  it  ic  icicicit  it  icit  -k  it  it  it  icif  icicicicicit  icit  icit  ic 

DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 
CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

Qit  k it  it  it  it  it  it  k it  it  it  kit  kit  iticititit  it  itkititit  it  it  it  it  it  it  it  it  it  it  it  it  it  it  kit  kit  it  it  it  it  it  it  kit  it  kit  it  it  k 

COMMON /PILE/TPL , E , RINER, AREA, DIA, X, ELENP , KCYC, 
+KSOIL,GSE,CL 
DIMENSION  LM(NLDOF) 

DATA  ZERO/ 0.0/ 

J=0 

DO  10  I=2,NEQ,5 

IF(X.NE.ZERO.AND.MOD(I,85) .EQ.2)GO  TO  10 
J=J+1 
LM(J)=I 
J=J+1 
LM( J)=I+1 
10  CONTINUE 

RETURN 
END 

C 

SUBROUTINE  MATR( A, N,M, NUO) 

C 

C THIS  ROUTINE  READS  A MATRIX  FROM  A UNFORMATTED 

C 'SCRATCH'  FILE.  MAXIMUM  LENGTH  OF  RECORD  WRITTEN  = 

C MAXLRC 

Qk  k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

* 4r  ********  4r  **  4r  * 4r  * *4r  *****  **  **  4r  ***  4r  ★ 4r  4r  4r  * 4Mlr  * * 

COMMON/POINT/MFIRST,MLAST, IPRCN 
DIMENSION  A(*) 

DATA  MAXLRC/32000/ 

NM=N^M 

NTERM=MAXLRC / I PRCN / 4 
LENGTH=NM*IPRCN*4 
NLOOP= (LENGTH- 1 ) /MAXLRC+1 
NS=1 

NF=NTERM 
DO  100  I=l,NLOOP 
I F ( NF . GT . NM ) NF=NM 
READ(NUO) (A( J) , J=NS,NF) 

NS=NF-»-l 

100  NF=NS-»-NTERM-l 

RETURN 
END 

C 

SUBROUTINE  MATW(A,N,M,NUO) 

C 

C THIS  ROUTINE  WRITES  A MATRIX  ON  A UNFORMATTED 

C 'SCRATCH'  FILE.  MAXIMUM  LENGTH  OF  RECORD  WRITTEN  = 

C MAXLRC 

Q*********************************************************** 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qk  k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

COMMON/POINT/MFIRST,MLAST, IPRCN 
DIMENSION  A(*) 

DATA  MAXLRC/32000/ 

NM=N*M 

NTERM=MAXLRC/ I PRCN / 4 
LENGTH=NM* IPRCN*  4 
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NLOOP=( LENGTH- 1)/MAXLRC+1 
NS=1 

NF=NTERM 
DO  100  I=l,NLOOP 
IF(NF.GT.NM)NF=NM 
WRITE(NUO) (A( J) , J=NS,NF) 

NS=NF+1 

100  NF=NS+NTERM-1 
RETURN 
END 

C 

FUNCTION  MPOINT(NDIMl,NDIM2,IP) 

C 

C THIS  ROUTINE  CALCULATES  THE  POSITION  OF  MEMORY  STORAGE 

C POINTER 

Q-k  it  ic  -k  "k  it  fc  it  ic  fc  it  ic  fc  it  fc  it  it  it  fc  rk  ic  it  it  ic  -k  ic  -k  It  ic  fc  it  fc  ic  fc  it  it  ic  ic  it  it  it  ic  ic  ic  ic  ic  ic  it  rkfc  icit  it  icicic  fcic  ic 

COMMON/POINT/MFIRST,MLAST, IPRCN 
MPOINT=MFIRST 

IF ( IPRCN . EQ . 2 . AND . MOD ( MPOINT , 2 ) . EQ . 0 ) MPOINT=MPOINT+l 
IF ( NDIM2 . EQ . 0 ) THEN 

MFIRST=MPOINT+NDIMl*IP 

ELSE 

MFIRST=MPOINT+NDIMl*NDIM2*IP 
END  IF 

IF ( MFIRST . GT . MLAST ) THEN 

WRITE (*,*)' STORAGE  EXCEEDED  BY  ' , (MFIRST-MLAST ) , ' 
+UNITS ' 

STOP 
END  IF 
RETURN 
END 

C 

SUBROUTINE  MPRINT ( A , NR , NC , NOS , NLP , NCP , KFRMT ) 

C 

C THIS  ROUTINE  PRINTS  A MATRIX  OF  SIZE  NR  X NC 

C 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  A(NR,NC) 

IF ( KFRMT . EQ . 4 ) THEN 
ASSIGN  31  TO  NFMTl 
ASSIGN  26  TO  NFMT2 
ELSE 

ASSIGN  30  TO  NFMTl 
ASSIGN  25  TO  NFMT2 
ENDIF 

DO  10  J=1,NC,NCP 

JH=J+NCP-1 

1 F ( JH . GT . NC ) JH=NC 

WRITE  ( NOS , NFMT2  ) ( N , N= J , JH ) 

DO  20  1=1, NR 

IF (MOD (1, NLP) .EQ.l.AND.I.NE.l)WRITE(NOS,*) 
WRITE(N0S,NFMT1)I, ( A( I , K) , K=J, JH) 

20  CONTINUE 

10  CONTINUE 

WRITE (NOS,*) 

RETURN 

25  FORMAT(10X,7I10) 

26  FORMAT(10X,7I12) 

30  FORMAT(1X,I9,7E10.3) 


31 


FORMAT (IX, 19, 7 (IX, Ell. 4) ) 
END 
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C 

SUBROUTINE  MREAD(A,N,M,NOT) 

C 

C THIS  ROUTINE  READS  A MATRIX  OF  SIZE  N X M 

Q*  ***  4MMr  ***********  *******  *4r  ********************  **  4r 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q*********************************************************** 

DIMENSION  A(N,M) 

DO  10  1=1, N 

10  READ (NOT,*) (A(I, J) , J=1,M) 

RETURN 

END 

C 

SUBROUTINE  NULVEC(A,N) 

C 

C THIS  ROUTINE  ZEROS  A VECTOR  OF  SIZE  N 

C 

0*********************************************************** 
C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
0*********************************************************** 
DIMENSION  A(N) 

DATA  ZERO/0.0/ 

DO  10  1=1, N 
A(I)=ZERO 
10  CONTINUE 

RETURN 
END 

C 

SUBROUTINE  OBFMAX ( OBF , N , FZ ZMAX , FXXMAX , FYYMAX , 

+BMXMAX , BMYMAX ) 

C 

C THIS  ROUTINE  CALCULATES  MAXIMUM  OUT-OF-BALANCE  FORCES 

C IN  VECTOR  'OBF'  OF  SIZE  N 

0*********************************************************** 
C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
0*********************************************************** 
DIMENSION  OBF(N) 

DATA  ZERO/ 0.0/ 

FZZMAX=ZERO 
FXXMAX=ZERO 
FYYMAX=ZERO 
BMXMAX=ZERO 
BMYMAX=ZERO 
DO  10  1=1, N 
ABSOBF=DABS ( OBF ( I ) ) 

IF(MOD(I,5) .EQ.1)THEN 

IF ( ABSOBF . GT . FZ  ZMAX ) FZ  ZMAX=ABSOBF 
ELSEIF(MOD(I,5) .EQ.2)THEN 

IF ( ABSOBF . GT . FXXMAX ) FXXMAX=ABSOBF 
ELSEIF(MOD(I,5) .EQ.3)THEN 

IF ( ABSOBF . GT . FYYMAX ) FYYMAX=ABSOBF 
ELSE IF ( MOD ( I , 5 ) . EQ . 4 ) THEN 

I F ( ABSOBF . GT . BMXMAX ) BMXMAX=ABSOBF 

ELSE 

IF ( ABSOBF . GT . BMYMAX ) BMYMAX=ABSOBF 
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END  IF 

10  CONTINUE 
RETURN 
END 

C 

SUBROUTINE  OPEN ( NUI , NUOl , NU02 , NU03 ) 

THIS  ROUTINE  OPENS  INPUT  AND  OUTPUT  FILES 

Qit  ft  it  it  it  icit  it  it  it  it  it  it  it  it  it  it  it  it  icidddcit -kit  ic  ickit  it  icic-k  ic  it  ic  icicit  ificit  it  it  icicit  "kitit  icic  it  icit  icic 

CHARACTER*15  FINP.FOUT 
WRITE(*,*) 'INPUT  DATA  FILE  NAME' 

READ(*,10)FINP 

WRITE (*,*)' OUTPUT  DATA  FILE  NAME ' 

READ(*,10)FOUT 

OPEN ( UNIT=NUI , FILE=FINP , FORM= ' FORMATTED ' , 

+STATUS= ' UNKNOWN ' ) 

OPEN ( UNIT=NU01 , FILE=FOUT , FORM= ' FORMATTED ' , 

+STATUS= ' UNKNOWN ' ) 

OPEN { UNIT=NU02 , FORM= ' UNFORMATTED ' , STATUS= ' SCRATCH ' ) 
OPEN ( UNIT=NU03 , FORM= ' UNFORMATTED ' , STATUS= ' SCRATCH ' ) 

10  FORMAT (A1 5) 

RETURN 

END 

C 

FUNCTION  PCLAY(C,E50,E100,Z,Y) 

C 

C THIS  ROUTINE  CALCULATES  THE  SOIL  RESISTANCE  'P'  USING 

C THE  P-Y  CURVE  SUGGESTED  BY  O'NEILL  FOR  CLAY 

Qk  it  it  it  kk  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  kk  it  it  it  kk  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  kkk 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON / P ILE / TPL, E , RINER, AREA, DIA, X, ELENP , KCYC, 
+KSOIL,GSE,CL 

DATA  ZERO , PT12 5 , PT2 5 , PT387 , PT5 , PT8 , ONE , SIX , NINE , 

+TEN , RN14 , TWENTY 

+/0. 0,0. 125,0.25,0.387,0.5,0.8, 1.0, 6. 0,9.0, 
+10.0,14.0,20.0/ 

YD=Y 

IF ( Y . LT . ZERO ) YD=-YD 

AD=PT8 

ES=ESTABL(C) 

YC=AD*E50*DSQRT(DIA) * (E*RINER/ES ) **PT125 
F=FTABL(E100) 

PU=PUCLAY(Z,C,F) 

YYC=YD/YC 

ZCRIT=CL^PT25 

IF(KCYC.EQ.O)THEN 

IF(YYC.LE.SIX)THEN 

PCLAY=PU*PT5*YYC**PT387 

ELSE 

IF ( Z . GE . ZCRIT ) THEN 
PCLAY=PU 
ELSE 

F AC=F+ ( ONE - F ) * Z / Z CRI T 
PUD=FAC*PU 

IF ( YYC . LT . TWENTY ) THEN 

PCLAY=PU+ ( PUD-PU ) /RN14* ( YYC-SIX ) 

ELSE 

PCLAY=PUD 
END  IF 
END  IF 
END  IF 
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ELSE 

IF ( y YC . LE . ONE ) THEN 

PCLAY=PU^PT5*yyC*PT387 

ELSE 

IF ( Z . GE . ZCRIT ) THEN 
PCLAY=PU*PT5 
ELSE 

FAC=PT5  * F*  Z / ZCRIT 

PUD=FAC*PU 

IF ( YYC . LT . TEN ) THEN 

PCLAY=PU*PT5+ ( PUD-PU*PT5 ) /NINE* ( YYC-ONE ) 
ELSE 

PCLAY=PUD 
END  IF 
ENDIF 
END  IF 

ENDIF 

IF ( Y . LT . ZERO ) PCLAY=-PCLAY 

RETURN 

END 

C 

SUBROUTINE  PILCOR ( PCOOR, PGEOM, NPILE , NNP ) 

THIS  ROUTINE  CALCULATES  PILE  COORDINATES 

DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 
CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON/PILE /TPL , E , RINER, AREA, DIA, X, ELENP , KCYC, 
+KSOIL,GSE,CL 

DIMENSION  PCOOR(NNP,3) ,PGEOM(NPILE,2) 

DATA  ZERO,RN15,RN16/0.0,15. ,16./ 

X1=X 

GSE=X 

IF ( XI. EQ. ZERO) THEN 
X1=TPL/RN16 
GSE^ZERO 
ENDIF 

ELENP= ( TPL-Xl ) /RN15 
DO  10  J=1,NPILE 
N=(J-l)*17-fl 
PCOOR(N,l)=PGEOM(J,l) 

PCOOR(N,2)=PGEOM( J,2) 

PCOOR(N,3)=ZERO 

PCOOR ( N+1 , 1 ) =PGEOM ( J , 1 ) 

PCOOR ( N+1 , 2 ) =PGEOM ( J , 2 ) 

PCOOR(N+l,3)=Xl 
DO  20  I=N-l-2,N+16 
PCOOR(I,l)=PGEOM{ J,l) 

PCOOR (1,2) =PGEOM ( J , 2 ) 

PCOOR (1,3) =PCOOR (1-1,3) +ELENP 
20  CONTINUE 

10  CONTINUE 

RETURN 
END 

C 

SUBROUTINE  PRNTVl ( PSPF, NEQ, NUO) 

C 

C THIS  ROUTINE  PRINTS  VECTOR  'PSPF'  AFTER  SPLITTING  INTO 

C ODD  AND  EVEN  NUMBERED  COMPONENTS 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 
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C CALCULATIONS 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON / P ILE / TPL, E , RINER, AREA, DIA, X, ELENP , KCYC, 
+KSOIL,GSE,CL 
DIMENSION  PSPF(NEQ) 

NUM=17 

IF(GSE.GT.0.D0)NUM=16 
WRITE (NUO, 20) 

20  FORMAT ( IX, T2 3, '1' ,T35, '2') 

NODE=0 

DO  25  1=1, NEQ 
IF (MOD (I, 2) .EQ.1)THEN 
NODE=NODE+l 
PSPFX=PSPF ( I ) 

IF (MOD (NODE, NUM) .EQ. 1. AND. NODE. NE. 1) WRITE (NUO, * ) 

ELSE 

PSPFY=PSPF ( I ) 

WRITE ( NUO , 30 ) NODE , PSPFX , PSPFY 
END  IF 

25  CONTINUE 

RETURN 

30  FORMAT(2X,I9,2X,E10.3,2X,E10.3) 

END 

C 

SUBROUTINE  PRNTV2 (DISP, NEQ, NUO, KFLG) 

C 

C THIS  ROUTINE  PRINTS  VECTOR  'DISP'  AFTER  SPLITTING  INTO 

C FIVE  COMPONENTS  (DZZ,DXX,DYY,THETAXX,THETAYY) 

C 

Qit  it  it  ic -k  ic  it  it  ic  it  icif  ft  idcicidt  ic  fcidt  icit  fc  fcrkic  it  it  ic  it  ic  icicicir  icit  icicicicicicicicit  idcicicie  it  ickicicic 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qit  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  ft  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it 


DIMENSION  DISP(NEQ) 

WRITE (NUO, 20) 

20  FORMAT ( IX, T2 3, '1' ,T35, '2' ,T47, '3' ,T59, '4' ,T71, '5' ) 

NODE=0 

DO  25  1=1, NEQ 

IF(KFLG.EQ.l.AND.MOD(I,85) ,GT.5)GO  TO  25 
IF(KFLG.EQ.l.AND.MOD(I,85) .EQ.O)GO  TO  25 
IF(MOD(I,5) .EQ.1)THEN 
NODE=NODE+l 
DZZ=DISP(I) 

I F ( MOD ( NODE , 1 7 ) . EQ . 1 . AND . NODE . NE . 1 . AND . 

+KFLG . EQ . 0 ) WRI TE ( NUO , * ) 

ELSEIF(MOD(I,5) .EQ.2)THEN 
DXX=DISP(I) 

ELSEIF(MOD(I,5) .EQ.3)THEN 
DYY=DISP(I) 

ELSEIF(MOD(I,5) .EQ.4)THEN 
RXX=DISP(I) 

ELSE 


RYY=DISP(I) 

WRITE ( NUO, 30 ) NODE , DZZ , DXX , DYY , RXX , RYY 
END  IF 

2 5 CONTINUE 

WRITE (NUO,*) 

RETURN 

FORMAT (2X, 19, 5 (IX, Ell. 4) ) 

END 
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C 

FUNCTION  PSAND(PHI,RK,GAMMAD,Z,Y) 

C 

C THIS  ROUTINE  CALCULATES  THE  SOIL  RESISTANCE  'P'  USING 

C THE  P-Y  CURVE  SUGGESTED  BY  O'NEILL  FOR  SAND 

Qicit  icicic  icicit  fc  it  fc  ft  icit  rk  fc  it  it  it  ic  it  icft  icif  fc  it  it  It  it  it  It  icit  icicitit  ick  icicicicic  fc  fcic  fcic  ^ ic  ic  ic  ic  "k  ic  fc  ^ 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON /PILE/ TPL , E , RINER , AREA , D I A , X , ELENP , KCYC , 
+KSOIL,GSE,CL 

DATA  ZERO , PT8 , PT9 , ONE , THREE , TWENTY 
+/0. 0,0. 8, 0.9, 1.0,3.0,20.0/ 

ETA=ONE 

PU=PUSAND ( GAMMAD , PHI , D I A , Z ) 

IF(KCYC.EQ.O)THEN 

A=THREE-PT8  * Z /D I A 
IF(A.LT.PT9)A=PT9 

ELSE 

A=PT9 

END  IF 

I F ( PU . EQ . ZERO ) THEN 
FAC=ZERO 

ELSE 

ARG=RK*Z/ (A*ETA*PU) *Y 
IF ( DABS ( ARG ) . GT . TWENTY ) THEN 
IF(ARG.GT.ZERO)THEN 
ARG=TWENTY 
ELSE 

ARG=-TWENTY 
END  IF 
END  IF 

FAC=ETA* A*DTANH ( ARG ) 

END  IF 

PSAND=FAC*PU 

RETURN 

END 

C * 

FUNCTION  PUCLAY(Z,C,F) 

C 

C THIS  ROUTINE  CALCULATES  THE  ULTIMATE  LATERAL 

C RESISTANCE  OF  CLAY  AT  ANY  DEPTH  Z (AS  PROPOSED  BY 

C O'NEILL) 

Qit  it  it  it  it  it  it  it  it  it  it  it  it  k it  it  it  it  k it  it  k k k k k it  it  it  it  it  it  it  it  it  it  it  it  k it  it  k it  it  k k k it  it  it  it  it  it  it  it  it  it  k k 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Qk  k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 

COMMON/ P ILE / TPL , E , RINER , AREA , D I A , X , ELENP , KCYC , 
+KSOIL,GSE,CL 

DATA  PT25 , THREE , SIX, NINE/0 .25,3.0,6.0,9.0/ 

ZCRIT=CL*PT25 

RNP=THREE+S IX* Z / ZCRIT 

IF ( RNP . GT . NINE ) RNP=NINE 

PUCLAY=F*RNP*C*DIA 

RETURN 

END 

C 

FUNCTION  PUSAND(GAMMAD,PHI1,DIA,Z) 

C 

C THIS  ROUTINE  CALCULATES  THE  ULTIMATE  LATERAL 

C RESISTANCE  OF  SAND  AT  ANY  DEPTH  Z (AS  PROPOSED  BY 

C REESE, KOCH  AND  KOOP) 
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C*  ****★★*****★*★**★**★*****★********♦  *************  ^ ***  ^ ***  * 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q*******^*****^***************************** **************** 

DATA  PI, PT25,PT5, ONE, TWO, RN180/3. 1415927, 0.25, 0.5, 1.0 
+,2.0,180.0/ 

PHI=PHI1/RN180*PI 
BETA=PI *PT2  5+PHI *PT5 
SPHI=DSIN(PHI) 

TPHI=DTAN(PHI) 

TBETA=DTAN ( BETA ) 

RK0=ONE-SPHI 

RKA= ( ONE-SPHI ) / ( ONE+SPHI ) 

RKP=ONE/RKA 

PU1=GAMMAD*Z* (DIA* (RKP-RKA)+Z*RKP*TPHI*TBETA) 

PU2 =GAMMAD * D I A* Z * ( RKP * * 3 +TWO* RKO *RKP * RKP * 
+TPHI+TPHI-RKA) 

PUSAND=DMIN1 ( PUl , PU2 ) 

RETURN 

END 

C 

FUNCTION  SUMV(A,N,K) 

C 

C THIS  ROUTINE  CALCULATES  THE  SUM  OF  ODD  OR  EVEN 

C NUMBERED 

C COMPONENTS  OF  A VECTOR  'A'  OF  SIZE  N 

^★★★★★★★★★★★★★★★★★★★★★★************************************* 
C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C CALCULATIONS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q*W*<r***^*************************************************** 

DIMENSION  A(N) 

DATA  ZERO/ 0.0/ 

SUMV=ZERO 
DO  10  1=1, N 

IF (MOD (1,2). EQ. K) SUMV=SUMV+A ( I ) 

10  CONTINUE 

RETURN 
END 

C 

FUNCTION  ZNODE(NODE) 

C 

C THIS  ROUTINE  CALCULATES  THE  DEPTH  OF  A PILE  NODE 

C BELOW  CAP 

Q**:(»r***^**************************************************** 

C DEACTIVATE  THE  FOLLOWING  LINE  FOR  SINGLE  PRECISION 

C LINE 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q******************************^**************************** 

COMMON/PILE/TPL, E , RINER, AREA,DIA, X, ELENP, KCYC, 

+KSOIL , GSE , CL 
DATA  ZERO/O.DO/ 

X1=X 

IP(X1.EQ.ZERO)X1=TPL/16.DO 
ELENP=(TPL-X1)/15.D0 
IF(MOD(NODE,17) ,EQ.1)THEN 
ZNODE^ZERO 

ELSEIF(MOD(NODE,17) .EQ.2)THEN 
ZNODE=Xl 

ELSE 

ZNODE=Xl+ (MOD (NODE, 17 ) -2 ) *ELENP 
END  IF 
RETURN 
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END 


APPENDIX  F 

TYPICAL  INPUT  AND  OUTPUT  DATA  SETS  OF  HOUSTON,  TEXAS  SINGLE 

AND  NINE-PILE  GROUP  STUDY  FOR  PROGRAM 

LPG-VERSION  1 (PROFILE) 


F. 1 Input  Data  Set  For  Single  Pile 


TEXAS  3X3  GROUP, COMPRESSION, CyCLE#l 
KIPS, INCH, RAD 
1 

480.  2.9e7  161.  11.  10.75 
12.  0 
1 

50  l.e-4 
2 842.3  .45 
l.e-3 


0. 

0. 

0. 

0.  0. 

0. 

50. 

70. 

0.0355 

0.  0. 

0. 

50. 

70. 

0.0355 

0.  0. 

0. 

50. 

70. 

0.0355 

0.  0. 

0. 

50. 

70. 

0.0355 

0.  0. 

0. 

0. 

0. 

0. 

18.18305  .005 

.01 

0. 

0. 

0. 

18.71186  .005 

.01 

0. 

0. 

0. 

19.24067  .005 

.01 

0. 

0. 

0. 

19.76949  .005 

..01 

0. 

0. 

0. 

20.29830  .005 

.01 

0. 

0. 

0. 

20.82711  .005 

.01 

0. 

0. 

0. 

21.35593  .005 

.01 

0. 

0. 

0. 

21.88474  .005 

.01 

0. 

0. 

0. 

22.41355  .005 

.01 

0. 

0. 

0. 

22.94237  .005 

.01 

0. 

0. 

0. 

23.47118  .005 

.01 

0. 

0. 

0. 

24.00000  .005 

.01 

0.  0. 

0 10  0 0 
0 .20  000 
1 
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F.2  Output  Data  Set  For  Single  Pile 


TEXAS  3X3  GROUP, COMPRESSION, CYCLE#1 

iritititicititicicitititititititlfititit’kicitititic’k’klc’kiciticitrk’kiticicfciticiciticiciticicicicicicirir'kiticicic’kicicicic'kicit'k 

• • • • T O • • • • 

• • • • w • • • • 

THIS  PROGRAM  CALCULATES  THE  LATERAL  LOAD-DEFLECTION  BEHAVIOR 
OF  A PILE  GROUP  USING  FEM  TECHNIQUE. 

fcic'icitititit'kit'kititicicicicicititiciticiticititititititicitit'kiticificiticiciciticicicicieiciciciticiciticiciticiciciciciciticicicit 

INPUT 


UNITS  ARE 


KIPS, INCH, RAD 


CODE  FOR  PRINT  OUT 

KFLG 

= 

1 

TOTAL  PILE  LENGTH 

L 

480. 

(L) 

YOUNG'S  MODULUS  OF  PILE 

E 

= 

0.290E+08 

(F/L^2) 

MOMENT  OF  INERTIA  OF  PILE 

I 

161. 

(L-4) 

AREA  OF  CROSS  SECTION  OF  PILE 

A 

— 

11.0 

(L-2) 

DIA  OF  PILE 

DIA 

= 

10.8 

(L) 

PROJECTION  OF  PILE  GROUP  ABOVE 

GROUND  LEVEL 

X 

12.0 

(L) 

# OF  CYCLES  OF  LOAD  APPLIED 

KCYC 

= 

0 

# OF  PILES  IN  THE  GROUP 

NPILE 

1 

MAXIMUM  # OF  ITERATIONS 

MAXITN 

= 

50 

TOLERANCE 

TOLER 

— 

O.lOOE-03 

(L) 

SOIL  TYPE 

KSOIL 

SS 

2 

SHEAR  MODULUS  OF  SOIL 

G 

= 

842. 

(F/L^2) 

POISSONS  RATIO  OF  SOIL 

RNU 

0.450 

PILE  TIP  STIFFNESS 

TSTIF 

= 

O.lOOE-02 

(F/L) 

CURVES  DATA: 

PHI  K GAMMA' 

CU 

E50 

ElOO 

(DEG)  (F/L^3)  (F/L^3) 

(F/L'^2) 

(L/L) 

(L/L) 

1 2 3 

4 

5 

6 

1 

2 

3 

4 

5 

6 
7 


0. 

0. 

0. 

0. 

0. 

0. 

0. 


8 0. 
9 0. 
10  0. 
11  0. 
12  0. 

13  0. 

14  0. 

15  0. 

16  0. 
17  0. 


OOOE+00 

500E+02 

500E+02 

500E+02 

500E+02 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 


O.OOOE+00 

0.700E+02 

0.700E+02 

0.700E+02 

0.700E+02 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 


O.OOOE+00 

0.355E-01 

0.355E-01 

0.355E-01 

0.355E-01 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 


O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.182E+02 

0.187E+02 

0.192E+02 

0.198E+02 

0.203E+02 

0.208E+02 

0.214E+02 

0.219E+02 

0.224E+02 

0.229E+02 

0.235E+02 

0.240E+02 


O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 


O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 
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PILE  GEOMETRY: 

PILE#  X y 

1 2 
1 O.OOOE+00  O.OOOE+00 


BOUNDARY  CONDITIONS  CODE: 

FOR  TRANSLATION  IN  Z DIRECTION  = 0 

X = 1 

Y = 0 

FOR  ROTATION  ABOUT  X AXIS  = 0 

Y AXIS  = 0 


CAP  LOADS/DISPLACEMENTS: 

PILE#  FZZ/DZZ  FXX/DXX 

1 2 

1 O.OOOE+00  0.200E+00  0 


FYY/DYY  MXX/RXX 
3 4 

OOOE+00  O.OOOE+00  0 


MYY/RYY 

5 

OOOE+00 


# OF  LOAD  INCREMENT(S)  = 1 

'kicitidticiciticiciciciticiticicicititftiticicicicidciciciciriciticiticicit'kitit'kiticiciciticicicicicieicitit'k'kicic'kicicicic’kicit 


TOTAL  # OF  MEMORY  UNITS  = 550000 

# OF  MEMORY  UNITS  USED  BY  LPG  = 8492 

# OF  MEMORY  UNITS  FREE  = 541508 


icititicititiciciciciticicit'kisifititicicicicititicititic'kicicitic’kic’k-kiciticicitic'k'kic'kicicicicicicicicit'kiciricificicicic’kidc 


: : : : OUTPUT  : : : : 

GROUND  SURFACE  ELEVATION  = 0.120E+02  (L) 


THE  SOLUTION  CONVERGED  FOR: 

DISPLACEMENT/FORCE  INCREMENT  # 1 

ITERATION  # = 6 

MAX  DEFLECTION  ERROR  = 0.738E-04  (L) 


APPLIED  LOADS: 

PILE#  FZZ  FXX  FYY  MXX  MYY 

1 2 3 4 5 

1 O.OOOE+00  0.447E+04  O.OOOE+00  O.OOOE+00  O.OOOE+00 


TOTAL  = O.OOOE+00  0.447E+04  O.OOOE+00  O.OOOE+00  O.OOOE+00 


SUMMARY  OF  DISPLACEMENTS  AT  TOP  OF  PILE  GROUP: 

PILE#  DZZ  DXX  DYY 

(L)  (L)  (L) 

12  3 

1 O.OOOOE-HOO  0.2000E+00  O.OOOOE+00 


THETAXX 

(RAD) 

4 

O.OOOOE+00 


THETAYY 

(RAD) 

5 

-0.3248E-02 


SUMMARY  OF  ABS  MAXIMUM  OUT -OF -BALANCE  FORCES: 


FZZ  = 

O.OOOE+OO 

(F) 

FXX  = 

0.184E+03 

(F) 

FYY  = 

O.OOOE+OO 

(F) 

MXX  = 

O.OOOE+OO 

(F-L) 
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MYY  = 0.128E-08  (F-L) 


CHECK:  TOTAL  LOAD  CARRIED  BY  THE  SOIL 

(SUM  OF  NF+FF  SOIL  SPRINGS  RESISTANCES) 
IN  X DIRECTION  = 0.416E+04  (F) 

IN  Y DIRECTION  = O.OOOE+00  (F) 

TOTAL  LOAD  APPLIED  AT  TOP  OF  PILE  GROUP 
IN  X DIRECTION  = 0.447E+04  (F) 

IN  Y DIRECTION  = O.OOOE+00  (F) 

SUMMARY  OF  PILE  ELEMENT  FORCES: 


1.  MAX  AXIAL  FORCE  (F) 


PILE 

# 

1 

2.  MAX  SHEAR  FORCE 


AXIAL 

FORCE 

0.000 

IN  X DIRECTION  (F) 


PILE 

# 


PILE  AT  AT 

ELEM#  DEPTH  DEPTH 

BELOW  CAP  BELOW  CAP 


MAX 

SF 


1 


1 0.000 


12.000  0.4473E+04 


3.  MAX  SHEAR  FORCE  IN  Y DIRECTION  (F) 


PILE 

# 


PILE  AT 

ELEM#  DEPTH 

BELOW  CAP 


AT 
DEPTH 
BELOW  CAP 


MAX 

SF 


1 


1 0.000 


12.000  O.OOOOE+00 


4.  MAX  BENDING  MOMENT  ABOUT  X AXIS  (F-L) 


PILE  PILE  AT 

# ELEM#  DEPTH 

BELOW  CAP 


MAX 

BM 


1 


1 0.000  O.OOOOE+00 


5.  MAX  BENDING  MOMENT  ABOUT  Y AXIS  (F-L) 


PILE  PILE  AT 

# ELEM#  DEPTH 

BELOW  CAP 


MAX 

BM 


1 3 43.200  -0.1929E+06 

icic'k'kicitic’kit'kit'kititicitititic'kititiricic'kicicic'kiticiticitititititicititidciciciciticiciticicic'kiciciticiciciciciticiricit 
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F.3  Input  Data  Set  For  Nine-Pile  Group 


TEXAS  3X3  GROUP, COMPRESS ION, CYCLE#l,LOAD#4-BANERJEE  Gs 
KIPS, INCH, RAD 
1 

480.  2.9e7  240.3116  90.7626  10.75 
12.  0 
9 

50  l.e-4 
2 842.3  .45 
l.e-3 


0. 

0. 

0. 

0.  0. 

0. 

50. 

70. 

0.0355 

0.  0. 

0. 

50. 

70. 

0.0355 

0.  0. 

0. 

50. 

70. 

0.0355 

0.  0. 

0. 

50. 

70. 

0.0355 

0.  0. 

0. 

0. 

0. 

0. 

18.18305  .005 

.01 

0. 

0. 

0. 

18.71186  .005 

.01 

0. 

0. 

0. 

19.24067  .005 

.01 

0. 

0. 

0. 

19.76949  .005 

.01 

0. 

0. 

0. 

20.29830  .005 

.01 

0. 

0. 

0. 

20.82711  .005 

.01 

0. 

0. 

0. 

21.35593  .005 

.01 

0. 

0. 

0. 

21.88474  .005 

.01 

0. 

0. 

0. 

22.41355  .005 

.01 

0. 

0. 

0. 

22.94237  .005 

.01 

0. 

0. 

0. 

23.47118  .005 

.01 

0. 

0. 

0. 

24.00000  .005 

.01 

0. 

64.5 

32.25 

64.5 

64.5 

64.5 

0. 

32.25 

32.25 

32.25 

64.50 

32.25 

0. 

0. 

32.25 

0. 

64.50 

0. 

0 10  0 0 

0 .87  000 

0 .84  000 

0 .81  000 
0 1.06  000 
0 1.01  000 
0 .97  000 

0 1.13  000 

0 1.14  000 

0 1.12  000 


1 
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F.4  Output  Data  Set  For  Nine-Pile  Group 


TEXAS  3X3  GROUP, COMPRESSION, CYCLE#l,LOAD#4-BANERJEE  Gs 

itific'kifit'kicic'kititicit'k'kititicicitit'kic'kit'kfc'kiticicfcit'kit’kicicicifkitit’kit'kieic'k’k-kicifkicic'kic'kfcfc'kitiffcicfcik 

• •••  T.  fi  •••• 

THIS  PROGRAM  CALCULATES  THE  LATERAL  LOAD-DEFLECTION  BEHAVIOR 
OF  A PILE  GROUP  USING  FEM  TECHNIQUE. 

it-kititiciticititititititititicititititicicic'kfcicititiciciciticicic'kicicicicfcificfcic-k'k’k'kitit'kicfc’k'kicicilitic’k’k’kititicrkit 

INPUT 


UNITS  ARE 


: KIPS, INCH, RAD 


CODE  FOR  PRINT  OUT 

KFLG 

= 

1 

TOTAL  PILE  LENGTH 

L 

— 

480. 

(L) 

YOUNG'S  MODULUS  OF  PILE 

E 

— 

0.290E+08 

(F/L^2) 

MOMENT  OF  INERTIA  OF  PILE 

I 

SS 

240. 

(L-4) 

AREA  OF  CROSS  SECTION  OF  PILE 

A 

= 

90.8 

(L-2) 

DIA  OF  PILE 

DIA 

— 

10.8 

(L) 

PROJECTION  OF  PILE  GROUP  ABOVE 

GROUND  LEVEL 

X 

= 

12.0 

(L) 

# OF  CYCLES  OF  LOAD  APPLIED 

KCYC 

S; 

0 

# OF  PILES  IN  THE  GROUP 

NPILE 

9 

MAXIMUM  # OF  ITERATIONS 

MAXITN 

= 

50 

TOLERANCE 

TOLER 

— 

O.lOOE-03 

(L) 

SOIL  TYPE 

KSOIL 

— 

2 

SHEAR  MODULUS  OF  SOIL 

G 

= 

842. 

(F/L"2) 

POISSONS  RATIO  OF  SOIL 

RNU 

= 

0.450 

PILE  TIP  STIFFNESS 

TSTIF 

— 

O.lOOE-02 

(F/L) 

CURVES  DATA: 

PHI  K GAMMA ' 

CU 

E50 

ElOO 

(DEG)  (F/L''3)  (F/L'^S) 

(F/L^2) 

(L/L) 

(L/L) 

12  3 

4 

5 

6 

1 

2 

3 

4 

5 

6 
7 


0. 

0. 

0. 

0. 

0. 

0. 

0. 


8 0. 
9 0. 
10  0. 
11  0. 
12  0. 

13  0. 

14  0. 

15  0. 

16  0. 
17  0. 


OOOE+00 

500E+02 

500E+02 

500E+02 

500E+02 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 

OOOE+00 


O.OOOE+00 

0.700E+02 

0.700E+02 

0.700E+02 

0.700E+02 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 


O.OOOE+00 

0.355E-01 

0.355E-01 

0.355E-01 

0.355E-01 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 


O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.182E+02 

0.187E+02 

0.192E+02 

0.198E+02 

0.203E+02 

0.208E+02 

0.214E+02 

0.219E+02 

0.224E+02 

0.229E+02 

0.235E+02 

0.240E+02 


O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 

0.500E-02 


O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 

O.lOOE-01 
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PILE  GEOMETRY: 


PILE# 

X 

Y 

1 

2 

1 

O.OOOE+00 

0.645E+02 

2 

0.323E+02 

0.645E+02 

3 

0.645E+02 

0.645E+02 

4 

O.OOOE+00 

0.323E+02 

5 

0.323E+02 

0.323E+02 

6 

0.645E+02 

0.323E+02 

7 

O.OOOE+00 

O.OOOE+00 

8 

0.323E+02 

O.OOOE+00 

9 

0.645E+02 

O.OOOE+00 

BOUNDARY  ( 

CONDITIONS 

CODE: 

FOR  TRANSLATION  IN  Z DIRECTION 

X 

Y 

FOR  ROTATION  ABOUT  X AXIS 

Y AXIS 


0 

1 

0 

0 

0 


CAP  LOADS /DISPLACEMENTS: 

PILE#  FZZ/DZZ  FXX/DXX 

1  2 

1 O.OOOE+00  0.870E+00 

2 O.OOOE+00  0.840E+00 

3 O.OOOE+00  0.810E+00 

4 O.OOOE+00  0.106E+01 

5 O.OOOE+00  O.lOlE+01 

6 O.OOOE+00  0.970E+00 

7 O.OOOE+00  0.113E+01 

8 O.OOOE+00  0.114E+01 

9 O.OOOE+00  0.112E+01 


FYY/DYY  MXX/RXX  MYY/RYY 
3 4 5 

O.OOOE+00  O.OOOE+00  O.OOOE+00 
O.OOOE+00  O.OOOE+00  O.OOOE+00 
O.OOOE+00  O.OOOE+00  O.OOOE+00 
O.OOOE+00  O.OOOE+00  O.OOOE+00 
O.OOOE+00  O.OOOE+00  O.OOOE+00 
O.OOOE+00  O.OOOE+00  O.OOOE+00 
O.OOOE+00  O.OOOE+00  O.OOOE+00 
O.OOOE+00  O.OOOE+00  O.OOOE+00 
O.OOOE+00  O.OOOE+00  O.OOOE+00 


# OF  LOAD  INCREMENT(S)  = 1 

icicicicicicititit’kicicicicicicicitidticiciciticiciciticicicific’k’kiriticiciciciciciticitititicicicicfciticicicicititiriciciciciticicit 


TOTAL  # OF  MEMORY  UNITS 

# OF  MEMORY  UNITS  USED  BY  LPG  = 

# OF  MEMORY  UNITS  FREE 


550000 

518900 

31100 


: : : : OUTPUT  : : : : 

GROUND  SURFACE  ELEVATION  = 0.120E+02  (L) 


THE  SOLUTION  CONVERGED  FOR: 

DISPLACEMENT/ FORCE  INCREMENT  # = 1 

ITERATION  # 5 

MAX  DEFLECTION  ERROR  = 0.479E-04  (L) 


APPLIED  LOADS: 

PILE#  FZZ  FXX  FYY  . MXX  MYY 

1 2 3 4 5 

1 O.OOOE+00  0.124E+05  0. 291E-10-0. 105E-08  O.OOOE+00 

2 O.OOOE+00  0.103E+05  0 . lOOE-10-0 • 400E-10-0 . 931E-08 
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3 

4 

5 

6 

7 

8 
9 


0,000E+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE-i-00 


0.110E+05-0.946E-10  0.131E-08  0.186E-08 
0.147E+05-0.728E-11-0.204E-09-0.540E-07 
0.118E+05-0.105E-10  0 . 418E-10-0 . 279E-07 
0 . 127E+05  0 . 109E-10-0 • 437E-10-0 . 205E-07 
0 . 171E+05-0 . 728E-11  0 . 291E-10-0 . 186E-07 
0.156E+05  0.728E-11  0.291E-10-0. 168E-07 
0.170E+05  0.218E-10-0.873E-10  0.317E-07 


TOTAL  = O.OOOE+00  0. 123E+06-0.405E-10-0. 127E-10-0. 114E-06 


SUMMARY  OF 

DISPLACEMENTS 

1 AT  TOP  OF 

PILE  GROUP: 

PILE# 

DZZ 

DXX 

DYY 

THETAXX 

(L) 

(L) 

(L) 

(RAD) 

1 

2 

3 

4 

1 

O.OOOOE+00 

0.8700E+00 

-0.3257E-01 

-0.2098E-03  -0 

2 

O.OOOOE+00 

0.8400E+00 

0.2354E-02 

0.1817E-04  -0 

3 

O.OOOOE+00 

0.8100E+00 

0.3389E-01 

0.2198E-03  -0 

4 

O.OOOOE+00 

0.1060E+01 

-0.8517E-02 

-0.6177E-04  -0 

5 

O.OOOOE+00 

O.lOlOE+01 

-0.1395E-02 

-0.1203E-04  -0 

6 

O.OOOOE+00 

0.9700E+00 

0.7772E-02 

0.5551E-04  -0 

7 

O.OOOOE+00 

0.1130E+01 

0.2761E-01 

0.1850E-03  -0 

8 

O.OOOOE+00 

0.1140E+01 

-0.2667E-02 

-0.1813E-04  -0 

9 

O.OOOOE+00 

0.1120E+01 

-0.2929E-01 

-0.1952E-03  -0 

SUMMARY  OF  ABS  MAXIMUM  OUT -OF -BALANCE  FORCES: 


FZZ  = 

O.OOOE+OO 

(F) 

FXX  = 

0.420E+01 

(F) 

FYY  = 

0.907E+01 

(F) 

MXX  = 

0.134E-05 

(F-L) 

MYY  = 

0.883E-06 

(F-L) 

CHECK:  TOTAL  LOAD  CARRIED  BY  THE  SOIL 

(SUM  OF  NF+FF  SOIL  SPRINGS  RESISTANCES) 
IN  X DIRECTION  = 0.123E+06  (F) 
IN  Y DIRECTION  = -0.418E-01  (F) 

TOTAL  LOAD  APPLIED  AT  TOP  OF  PILE  GROUP 
IN  X DIRECTION  = 0.123E+06  (F) 

IN  Y DIRECTION  = -0.405E-10  (F) 

SUMMARY  OF  PILE  ELEMENT  FORCES: 


1.  MAX  AXIAL  FORCE  (F) 


PILE 

# 


AXIAL 

FORCE 


1 

2 

3 

4 

5 

6 

7 

8 
9 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


THETAYY 

(RAD) 

5 

9441E-02 

8615E-02 

8559E-02 

1159E-01 

1035E-01 

1028E-01 

1292E-01 

1258E-01 

1279E-01 
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2.  MAX  SHEAR  FORCE  IN  X DIRECTION  (F) 


PILE 

PILE 

AT 

AT 

* 

ELEM# 

DEPTH 

DEPTH 

MAX 

BELOW  CAP 

BELOW  CAP 

SF 

1 

1 

0.000 

12.000 

0.1241E+05 

2 

17 

0.000 

12.000 

0.1033E+05 

3 

33 

0.000 

12.000 

0.1105E+05 

4 

49 

0.000 

12.000 

0.1467E+05 

5 

65 

0.000 

12.000 

0.1176E+05 

6 

81 

0.000 

12.000 

0.1270E+05 

7 

97 

0.000 

12.000 

0.1715E+05 

8 

113 

0.000 

12.000 

0.1563E+05 

9 

129 

0.000 

12.000 

0.1700E+05 

3 . MAX  SHEAR 

FORCE  IN  y 

DIRECTION  (F) 

PILE 

PILE 

AT 

AT 

# 

ELEM# 

DEPTH 

DEPTH 

MAX 

BELOW  CAP 

BELOW  CAP 

SF 

1 

5 

105.600 

136.800 

-0.2815E+03 

2 

26 

261.600 

292.800 

0.2017E+03 

3 

37 

105.600 

136.800 

0.3239E+03 

4 

53 

105.600 

136.800 

-0.2574E+03 

5 

69 

105.600 

136.800 

-0.6665E+02 

6 

85 

105.600 

136.800 

0.2207E+03 

7 

101 

105.600 

136.800 

0.3941E+03 

8 

122 

261.600 

292.800 

-0.1550E+03 

9 

133 

105.600 

136.800 

-0.3950E+03 

4.  MAX  BENDING 

MOMENT  ABOUT  X AXIS  (F-L) 

PILE 

PILE 

AT 

# 

ELEM# 

DEPTH  MAX 

BELOW  CAP  BM 

1 

7 

168.000  -0.1837E+05 

2 

26 

261.600  -0.4552E+04 

3 

39 

168.000  0.1889E+05 

4 

54 

136.800  -0.8788E*f04 

5 

70 

136.800  -0.2435E+04 

6 

86 

136.800  0.7361E+04 

7 

103 

168.000  0.1814E+05 

8 

119 

168.000  -0..3807E+04 

9 

135 

168.000  -0.1833E+05 

5.  MAX  BENDING 

MOMENT  ABOUT  Y AXIS 

(F-L) 

PILE 

PILE 

AT 

# 

ELEM# 

DEPTH 
BELOW  CAP 

MAX 

BM 

1 

4 

74.400 

-0.5938E+06 

2 

20 

74.400 

-0.4915E+06 

3 

36 

74.400 

-0.5227E+06 

VO  00  ^ cr*  tn 
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52  74.400  -0.7256E+06 

68  74.400  -0.5761E+06 

84  74.400  -0.6181E+06 

100  74.400  -0.8542E+06 

116  74.400  -0.7790E+06 

132  74.400  -0.8456E+06 


•k'kifkicicicicific'kit'k’kiticititiciticiciticiticic’kititiciticicit'kicicicicicicic’k'k’kitickiticicifkitit 


APPENDIX  G 

TYPICAL  INPUT  AND  OUTPUT  DATA  SETS  FOR  PROGRAM 

LPG-VERSION  2 (LU) 


G. 1 Input  Data  Set  For  Single  Pile 


EXAMPLE  PROBLEM  TO  ILLUSTRATE  PILE  SYMMETRY:  SINGLE  PILE,  CLAY  SOIL 
LBS , INCHES , RADIANS 
1 

540.  1.0E7  2898.06  86.135  18.0 
54.  0 
1 1 

50  l.E-4 
2 600.  0.5 
1.E6 


0. 

0. 

0. 

0. 

.0 

.0 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0.  54. 


1 

0 10  11 

0 .3  0 0 0 

1 
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G.2  Output  Data  Set  For  Single  Pile 


EXAMPLE  PROBLEM  TO  ILLUSTRATE  PILE  SYMMETRY:  SINGLE  PILE,  CLAY  SOIL 


• •••  T.  d •••• 

THIS  PROGRAM  CALCULATES  THE  LATERAL  LOAD-DEFLECTION  BEHAVIOR 
OF  A PILE  GROUP  USING  FEM  TECHNIQUE. 

•kititicicicicic'kiciticicicicic'kicicititicic'kit'kititicicicitititfcicicic'kic'kit'kicicic'kic'kicicicicitit-kicicitit'kitir’kititicic-k 

INPUT 


UNITS  ARE 

: LBS, INCHES, RAD IANS 

CODE  FOR  PRINT  OUT 

KFLG 

1 

TOTAL  PILE  LENGTH 

L 

= 540. 

(L) 

YOUNG'S  MODULUS  OF  PILE 

E 

= O.lOOE+08  (F/L"2) 

MOMENT  OF  INERTIA 

. OF  PILE 

I 

= 0.290E+04  (L^4) 

AREA  OF  CROSS  SECTION  OF  PILE 

A 

= 86.1 

(L-2) 

DIA  OF  PILE 

DIA 

= 18.0 

(L) 

PROJECTION  OF  PILE  GROUP  ABOVE 

GROUND  LEVEL 

X 

= 54.0 

(L) 

# OF  CYCLES  OF  LOAD  APPLIED 

KCYC 

= 

0 

# OF  PILES  IN  THE 

; GROUP 

NPILE 

S 

1 

# OF  ASYMMETRIC  PILES  IN  THE  GROUP 

NPA 

1 

MAXIMUM  # OF  ITERATIONS 

MAXITN 

50 

TOLERANCE 

TOLER 

= O.IOOE- 

■03  (L) 

SOIL  TYPE 

KSOIL 

2 

SHEAR  MODULUS  OF 

SOIL 

G 

= 600. 

(F/L"2) 

POISSONS  RATIO  OF 

' SOIL 

RNU 

= 0.500 

PILE  TIP  STIFFNESS 

TSTIF 

= O.lOOE+07  (F/L) 

PY  CURVES  DATA: 

PHI 

K 

GAMMA' 

CU 

E50 

ElOO 

(DEG) 

(F/L^3) 

(F/L''3) 

(F/L^2) 

(L/L) 

(L/L) 

1 

2 

3 

4 

5 

6 

1 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

2 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

3 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

4 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

5 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

6 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

7 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

8 O.OOOE-t-00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0. 500E-02 

O.lOOE-01 

9 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

10  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

11  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

12  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

13  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0. 180E+02 

0.500E-02 

O.lOOE-01 

14  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

15  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

16  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

17  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 
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PILE  GEOMETRY: 

PILE#  X Y 

1 2 
1 O.OOOE+00  0.540E+02 


PILE  SYMMETRY  #(S): 
PILE  # SYMMETRY  # 
1 1 


BOUNDARY  CONDITIONS  CODE: 

FOR  TRANSLATION  IN  Z DIRECTION  = 0 

X = 1 

Y = 0 

FOR  ROTATION  ABOUT  X AXIS  = 1 

Y AXIS  = 1 


CAP  LOADS /DISPLACEMENTS: 

PILE#  FZZ/DZZ  FXX/DXX  FYY/DYY  MXX/RXX  MYY/RYY 

1 2 3 4 5 

1 O.OOOE+00  0.300E+00  O.OOOE+00  O.OOOE+00  O.OOOE+00 


# OF  CAP  LOAD  INCREMENT  = 

TOTAL  # OF  MEMORY  UNITS  = 

# OF  MEMORY  UNITS  USED  BY  LPG  = 

# OF  MEMORY  UNITS  FREE 


1 

rk'kitit’kititic’kic’kit’kicic’kiciticic'kicicicicicic-kiticititicir 


1550000 

20720 

1529280 


: : : : OUTPUT  : : : : 

GROUND  SURFACE  ELEVATION  = 0.540E+02  (L) 


THE  SOLUTION  CONVERGED  FOR: 

DISPLACEMENT/FORCE  INCREMENT  # = 1 

ITERATION  # 8 

MAX  DEFLECTION  ERROR  = 0.895E-04  (L) 


APPLIED  LOADS: 

PILE#  FZZ  FXX  FYY  MXX  MYY 

1 2 3 4 5 

1 O.OOOE+OO  0.342E+05  O.OOOE+00  O.OOOE+00  0.231E+07 


TOTAL  = O.OOOE+00  0.342E+05  O.OOOE+00  O.OOOE+00  0.231E+07 


THETAYY 

(RAD) 

5 

0.3234E-06 


SUMMARY  OF  DISPLACEMENTS  AT  TOP  OF  PILE  GROUP: 

PILE#  DZZ  DXX  DYY 

(L)  (L)  (L) 

12  3 

1 O.OOOOE+00  0.3000E+00  O.OOOOE+00 


THETAXX 

(RAD) 

4 

O.OOOOE-l-00 
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SUMMARY  OF  ABS  MAXIMUM  OUT -OF -BALANCE  FORCES: 


FZZ 

= 

O.OOOE+00 

(F) 

FXX 

= 

0.128E+03 

(F) 

FYY 

= 

O.OOOE+00 

(F) 

MXX 

= 

O.OOOE+00 

(F-L) 

MYY 

s= 

0.675E-08 

(F-L) 

CHECK:  TOTAL  LOAD  CARRIED  BY  THE  SOIL 

(SUM  OF  NF+FF  SOIL  SPRINGS  RESISTANCES) 
IN  X DIRECTION  = 0.344E+05  (F) 

IN  Y DIRECTION  = O.OOOE+00  (F) 

TOTAL  LOAD  APPLIED  AT  TOP  OF  PILE  GROUP 
IN  X DIRECTION  = 0.342E+05  (F) 

IN  Y DIRECTION  = O.OOOE+00  (F) 

SUMMARY  OF  PILE  ELEMENT  FORCES: 


1.  MAX  AXIAL  FORCE  (F) 


PILE  AXIAL 

# FORCE 

1 0 


2.  MAX  SHEAR  FORCE  IN  X DIRECTION  (F) 


PILE 

# 


PILE  AT  AT 

ELEM#  DEPTH  DEPTH 

BELOW  CAP  BELOW  CAP 


MAX 

SF 


1 


1 0.000 


54.000  0.3423E+05 


3.  MAX  SHEAR  FORCE  IN  Y DIRECTION  (F) 


PILE 

# 


PILE  AT  AT 

ELEM#  DEPTH  DEPTH 

BELOW  CAP  BELOW  CAP 


MAX 

SF 


1 


1 0.000 


54.000  O.OOOOE+00 


4.  MAX  BENDING  MOMENT  ABOUT  X AXIS  (F-L) 


PILE  PILE  AT 

# ELEM#  DEPTH 

BELOW  CAP 


MAX 

BM 


1 


1 0.000  O.OOOOE-fOO 


5.  MAX  BENDING  MOMENT  ABOUT  Y AXIS  (F-L) 


PILE 

# 


PILE 

ELEM# 


AT 

DEPTH 


MAX 
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BELOW  CAP  BM 

1 1 0.000  0.2314E+07 

ic'kicit’kiciticicicicicicicitititititit’kicicit'kitit-kiciticlticic'kicitit'kitffkfcic'kicicicicicicicicicicicicit'kic^'k'kicicrkic'k 
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G.3  Input  Data  Set  For  Four-Pile  Pile  Group 


EXAMPLE  PROBLEM  TO  ILLUSTRATE  PILE  SYMMETRY:  4X4  GROUP,  CLAY  SOIL 
LBS , INCHES , RADIANS 
1 

540.  1.0E7  2898.06  86.135  18.0 
54.  0 
4 1 

50  l.E-4 
2 600.  0.5 
1.E6 


0. 

0. 

0. 

0. 

.0 

.0 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0. 

0. 

0. 

18. 

.005 

.01 

0.  54. 

54.  54. 

0.  0. 

54.  0. 

1111 

0 10  11 

0 .3  0 0 0 


1 
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G.4  Output  Data  Set  For  Four-Pile  Pile  Group 


EXAMPLE  PROBLEM  TO  ILLUSTRATE  PILE  SYMMETRY;  4X4  GROUP,  CLAY  SOIL 

fcit'kicitlc'kit'kic'kicicicic'kit'k’k^t’kitifk'k’k'kititicic'kicitlcicicititicititicicicicHicic'kititicicfc'kicicicicicit'icicieicit'kic 


: : : : L P 6 : : : : 

THIS  PROGRAM  CALCULATES  THE  LATERAL  LOAD-DEFLECTION  BEHAVIOR 
OF  A PILE  GROUP  USING  FEM  TECHNIQUE. 

ic’kikfcfc^rkfc'k^kfc^'kicic'kicfcic'kicicicic'kicicitic'kic’kicicic'k'k'k'kititiciciciciticiticicicititicic'kiciciricitic'kicicicicicit 

INPUT 

UNITS  ARE  : LBS , INCHES , RADIANS 


CODE  FOR  PRINT  OUT  KFLG  = 1 


TOTAL  PILE  LENGTH 

L 

= 540. 

(L) 

YOUNG'S  MODULUS  ( 

OF  PILE 

E 

= O.lOOE+08  (F/L^2) 

MOMENT  OF  INERTIA  OF  PILE 

I 

= 0.290E+04  (L''4) 

AREA  OF  CROSS  SECTION  OF  PILE 

A 

= 86.1 

(L-2) 

DIA  OF  PILE 

DIA 

= 18.0 

(L) 

PROJECTION  OF  PILE  GROUP  ABOVE 

GROUND  LEVEL 

X 

= 54.0 

(L) 

# OF  CYCLES  OF  LOAD  APPLIED 

KCYC 

— 

0 

# OF  PILES  IN  THE  GROUP 

NPILE 

4 

# OF  ASYMMETRIC  : 

PILES  IN  THE  GROUP 

NPA 

— 

1 

MAXIMUM  # OF  ITERATIONS 

MAXITN 

50 

TOLERANCE 

TOLER 

= O.IOOE- 

-03  (L) 

SOIL  TYPE 

KSOIL 

2 

SHEAR  MODULUS  OF 

SOIL 

G 

= 600. 

(F/L-'2) 

POISSONS  RATIO  OF  SOIL 

RNU 

= 0.500 

PILE  TIP  STIFFNESS 

TSTIF 

= O.lOOE+07  (F/L) 

PY  CURVES  DATA: 

PHI 

K 

GAMMA' 

CU 

E50 

ElOO 

(DEG) 

(F/L^3) 

(F/L^3) 

(F/L^2) 

(L/L) 

(L/L) 

1 

2 

3 

4 

5 

6 

1 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

2 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E-H02 

0.500E-02 

O.lOOE-01 

3 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

4 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

5 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

0. lOOE-01 

6 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

7 O.OOOE-KOO 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

0. lOOE-01 

8 O.OOOE-l-00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

9 O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

10  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

11  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

12  O.OOOE-f-00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

13  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

14  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

15  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E+02 

0.500E-02 

O.lOOE-01 

16  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E*f02 

0.500E-02 

0. lOOE-01 

17  O.OOOE+00 

O.OOOE+00 

O.OOOE+00 

0.180E-I-02 

0.500E-02 

O.lOOE-01 
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PILE  GEOMETRY: 

PILE#  X 

1 

1 0,000E+00 

2 0.540E+02 

3 O.OOOE+00 

4 0.540E+02 


Y 

2 

0.540E+02 

0.540E+02 

O.OOOE+00 

O.OOOE+00 


PILE  SYMMETRY  #(S): 
PILE  # SYMMETRY  # 


1 

2 

3 

4 


1 

1 

1 

1 


BOUNDARY  CONDITIONS  CODE: 

FOR  TRANSLATION  IN  Z DIRECTION  = 0 

X = 1 

Y = 0 

FOR  ROTATION  ABOUT  X AXIS  = 1 

Y AXIS  = 1 


CAP  LOADS /DISPLACEMENTS: 

PILE#  FZZ/DZZ  FXX/DXX  FYY/DYY  MXX/RXX  MYY/RYY 

1 2 3 4 5 

1 O.OOOE+00  0.300E-K00  O.OOOE-i-00  O.OOOE+00  O.OOOE+OO 


# OF  CAP  LOAD  INCREMENT  = 

TOTAL  # OF  MEMORY  UNITS 

# OF  MEMORY  UNITS  USED  BY  LPG  = 

# OF  MEMORY  UNITS  FREE 

idtfc'k’k’kitfc-kititifkitit'kitrkit’kiticitic'kit'kiticiticititic 


1 

^'k’kicfticicitfciciricifkic’kicititiciticicic'kiciticicicititicit 


1550000 

21040 

1528960 

'kit^fcfcititititicrkitit'kiticiticrkicic'kic'kicicicicit'kicitic'k 


: : : : OUTPUT  : ; ; : 

GROUND  SURFACE  ELEVATION  = 0.540E+02  (L) 


THE  SOLUTION  CONVERGED  FOR: 

DISPLACEMENT/FORCE  INCREMENT  # = 1 

ITERATION  # = 4 

MAX  DEFLECTION  ERROR  = 0.938E-05  (L) 


APPLIED  LOADS: 

PILE#  FZZ  FXX  FYY  MXX  MYY 

1 2 3 4 5 

1 O.OOOE+00  0.165E+05  0.682E-12  0.114E+05  0.127E+07 


TOTAL  = O.OOOE+00  0.165E+05  0.682E-12  0.114E+05  0.127E+07 
SUMMARY  OF  DISPLACEMENTS  AT  TOP  OF  PILE  GROUP: 
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PILE# 

DZZ 

DXX 

DYY 

THETAXX 

THETAYY 

(L) 

(L) 

(L) 

(RAD) 

(RAD) 

1 

2 

3 

4 

5 

1 

O.OOOOE+00 

0.3000E+00 

-0.8946E-02 

-0.1593E-08 

-0.1771E-06 

SUMMARY  OF  ABS  MAXIMUM  OUT -OF -BALANCE  FORCES: 


FZZ 

=E 

O.OOOE+00 

(F) 

FXX 

0.959E-01 

(F) 

FYY 

= 

0.193E-01 

(F) 

MXX 

0.407E-09 

(F-L) 

MYY 

= 

0.251E-07 

(F-L) 

CHECK:  TOTAL  LOAD  CARRIED  BY  THE  SOIL 

(SUM  OF  NF+FF  SOIL  SPRINGS  RESISTANCES) 
IN  X DIRECTION  = 0.165E+05  (F) 

IN  Y DIRECTION  = 0.143E-02  (F) 

TOTAL  LOAD  APPLIED  AT  TOP  OF  PILE  GROUP 
IN  X DIRECTION  = 0.165E+05  (F) 

IN  Y DIRECTION  = 0.682E-12  (F) 

SUMMARY  OF  PILE  ELEMENT  FORCES: 


!•  MAX  AXIAL  FORCE  (F) 


PILE  AXIAL 

# FORCE 

1 0 


2.  MAX  SHEAR  FORCE  IN  X DIRECTION  (F) 


PILE 

# 


PILE  AT 

ELEM#  DEPTH 

BELOW  CAP 


AT 
DEPTH 
BELOW  CAP 


MAX 

SF 


1 


1 0.000 


54.000  0.1652E+05 


3.  MAX  SHEAR  FORCE  IN  Y DIRECTION  (F) 


PILE 

# 


PILE  AT 

ELEM#  DEPTH 

BELOW  CAP 


AT 
DEPTH 
BELOW  CAP 


MAX 

SF 


1 


5 151.200 


183.600  -0.1886E+03 


4.  MAX  BENDING  MOMENT  ABOUT  X AXIS  (F-L) 


PILE  PILE  AT 

# ELEM#  DEPTH 

BELOW  CAP 


MAX 

BM 


1 


2 


54.000  0.1140E-I-05 
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5.  MAX  BENDING  MOMENT  ABOUT  Y AXIS  (F-L) 


PILE  PILE  AT 

# ELEM#  DEPTH 

BELOW  CAP 


MAX 

BM 


1 1 0.000  0.1267E+07 

•k-kit’kitititfcicititiciticitic’kirit'kiticicicftic’k’kic'k'kicicit’kisitirit-k-k’k'kir'kit’kiciciclc'kfcitfcfr'kicicicicic'kiticicicic 
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